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SUMMARY 

Improvements  to  the  Aerotherm  Charring  Material  Thermal  Response  and  Ab¬ 
lation  Program  (CMA)  code  have  been  made  to  resolve  deficiences  that  were  iden¬ 
tified  during  the  Galileo  spacecraft  reentry/ablation  studies  for  a  Venus-Earth-Earth- 
Gravity-Assist  (VEEGA)  trajectory.  They  include  several  new  algorithms  to  merge 
the  Hunter  carbon  oxidation  subroutine  with  the  mainstream  CMA  ablation  cal¬ 
culations. 

A  surface-temperature  criterion  is  used  for  switching  from  the  built-in  surface 
thermochemistry  tables  to  the  Hunter  subroutine.  Three  methods  are  available  for 
the  CMA  user  to  define  the  temperature  criterion.  The  first  is  a  constant  transition 
temperature  criterion,  the  second  is  a  constant  mass  loss  parameter  (j 3')  criterion 
that  is  used  to  determine  the  transition  temperature,  and  the  last  is  a  search  for 
a  temperature  that  gives  the  smoothest  transition  between  the  Hunter  method  and 
the  surface  thermochemistry  tables  in  CMA  (based  on  the  slope  differential  be¬ 
tween  both  ablation  curves). 

The  modifications  discussed  in  this  report  include  use  of  the  Hunter  algorithm 
to  compute  an  ablation  threshold  temperature  of  the  material.  The  user  may  then 
choose  either  a  constant  temperature  or  use  the  Hunter  algorithm  to  compute  the 
temperature  that  corresponds  to  a  negligible  mass  loss  (i.c.,  no  ablation). 
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INTRODUCTION 

Problems  with  the  CMA  code  that  were  experienced  during  the  Galileo-VEEGA 
reentry/  ablation  studies1  showed  clearly  the  need  for  modification  to  the  code. 
The  following  modifications  were  subsequently  recommended: 

1 .  Increase  the  code’s  capacity  for  input  data;  specifically,  to  double  the  capaci¬ 
ty  of  (a)  the  time  dependent  data  table  (i.e.,  the  reentry  environmental  data), 
(b)  the  surface  thermochemistry  subtables  (i.e.,  double  the  pressure  tables  and 
increase  the  entries  per  table),  and  (c)  the  nodes  of  the  spatial  grid  (i.e.,  the 
structural  model); 

2.  Merge  Hunter’s  caibon  oxidation  algorithm2  with  the  CMA  code’s  main¬ 
stream  ablation  calculations; 

3.  Amend  the  Putz  and  Bartlett  mass  transfer  correlation  for  blowing  effects 
on  convective  heating; 

4.  Address  the  numerical  characteristics  of  the  surface  energy  balance  in  the 
diffusion-limited  oxidation  regime. 

The  code’s  capacity  for  input  data  (item  1  above)  was  completed  previously.  It 
was  accomplished  by  identifying  the  appropriate  arrays  in  the  source  code  (Ap¬ 
pendix  A),  increasing  their  dimension  declarations,  and  recompiling  the  program. 
There  was  no  descriptive  memo  generated  for  these  minor  modifications;  however, 
the  data  set  containing  the  source  codes  is  listed  in  the  catalog  of  IBM  mainframe 
data  sets  for  ANSP.3 

More  recent  modifications  to  the  CMA  code  will  be  discussed  in  this  report  and 
we  will  focus  on  the  algorithms  and  their  implementation.  It  will  be  assumed  that 
the  reader  is  familiar  with  the  CMA  code  and  graphite  ablation  theory.  Detailed 
discussions  on  these  topics  can  be  found  in  Refs.  4  and  5,  respectively. 

The  primary  modifications  are  algorithms  that  merge  the  Hunter  carbon  oxida¬ 
tion  subroutine  with  the  mainstream  CMA  ablation  calculations  (item  2).  Efficient 
use  of  the  subroutine  in  CMA  has  been  hindered  by  the  lack  of  routines  that  inte¬ 
grate  it  with  the  mainstream  CMA  ablation  calculations.  The  existing  implementa¬ 
tion  only  allows  for  the  Hunter  subroutine  to  be  switched  ON  or  OFF,  meaning 
that  if  the  mode  of  ablation  changes  from  oxidation  to  sublimation  or  vice  versa, 
a  restart  problem  would  be  required. 

Items  3  and  4  arc  future  tasks.  Work  has  started  on  modifying  the  Putz  id 
Bartlett  blowing  option,  but  it  is  currently  "on  hold";  a  list  of  the  requirements 
for  this  task  is  provided  herein  for  future  reference.  Some  thoughts  from  the  au¬ 
thor  on  item  4  arc  included  in  tliis  report. 


rtTw.  Conn  and  C.  C.  Chan,  "Preliminary  Galileo- VLIiGA  Ablation  Studio."  JHU  API. 
IH-D-2-S7-OOI,  EM-5392.  March  12.  I9S7. 

‘I..  W.  Hunlcr.  I,,  t..  Peiini,  D.  W.  Ccrnn.  and  P.  T.  Urcnra,  "Calculation  of  Carbon  Abla- 
lion  on  a  Re-entry  Body  During  Super  lonx-Subionic  Flight."  Journal  of  Spacecraft  Rock¬ 
et!.  Voi.  2?.  No.  5.  Sept. -Oct  1986. 

’C.  C.  Chan.  "Cataloe  of  ANSI*  Data  Sett."  JUG  ATI  BUF.t. AM-7925.  October  6.  198*. 

"‘Cier's  Manual:  Acrothcrm  Charting  Material  Thermal  Retpomc  and  Ablation  Program. 
Vernon  3."  Vol.  I.  Acrothcrm  Report  No.  GM-70-H.  April  19*0. 

’t  .  I.  t’ermi.  "Retie*  of  Graphite  Ablation  Theotv  and  t: iperuncnl il  Data."  JMC  API 
ANSI‘M-1.  December  1971. 
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DISCUSSION 

The  new  algorithms  that  have  been  added  to  the  CMA  code  will  now  be  dis¬ 
cussed,  but  in  order  to  follow  the  discussions  on  merging  the  Hunter  subroutine, 
a  brief  background  on  the  CMA  ablation  calculations  is  first  provided.  The  CMA 
code  computes  values  for  the  surface  energy  balance  equation  (Appendix  B)  using 
algorithms  for  either  an  ablating  or  a  nonablating  material.  For  the  ablating  mate¬ 
rial,  the  chemical  and  sensible  energy  components  of  the  surface  energy  balance 
are  computed  using  either  (a)  the  Hunter  subroutine  (or  the  surface  thermochemis¬ 
try  tables  if  the  Hunter  subroutine  is  not  evoked)  for  oxidation  ablation  or  (b)  the 
surface  thermochemistry  tables  for  sublimation.  For  a  nonablator,  a  simple  sur¬ 
face  energy  balance  with  no  mass  transfer  terms  is  solved.  These  stages  of  the  ab¬ 
lation  calculations  are  identified  on  the  typical  graphite  ablation  curve  in  Fig.  1 . 
The  natural  logarithm  of  the  material’s  mass  loss  parameter  (/?')  is  presented  as 
a  function  of  the  wall  surface  temperature.  The  requirements  of  a  merger  routine 
are  to  determine  the  criteria  for  using  ablation  or  nonablation  calculations  and  ox¬ 
idation  or  sublimation  ablation  calculations.  These  are  illustrated  in  Fig.  1 . 


Wall  surface  lomperasure  (thousands  of  degrees  R) 
Figure  1  Graphite  abl3tion  curve  at  1  psi. 


Ablation  Threshold  Temperature 

The  switch  from  one  to  the  other  of  the  ablation  or  nonabiation  routines  is  trig¬ 
gered  after  comparing  the  surface  temperature  to  a  threshold  temperature  criterion. 
If  the  surface  temperature  is  greater  than  the  threshold  temperature,  then  the  ab¬ 
lating  materia!  routines  arc  used  for  the  surface  energy  balance;  'therwise,  the 
nonablating  material  routines  aie  used.  The  previous  implementation  in  CMA  used 
in  all  cases  the  lowest  lemperaiure  value  from  the  ablation  part  of  the  surface  ther¬ 
mochemistry  tables  for  this  criterion.  s»htch  is  inappropriate  for  the  Hunter  subrou¬ 
tine.  The  new  implementation  refines  this  process  by  using  a  rewritten  form  of  the 
Hunter  algorithm  to  compute  the  threshold  temperature  criterion  that  yields  a 
negligible  value  of  3'  (0.00001).  As  an  option,  the  user  is  also  allowed  to  specify 
a  fixed  ablation  threshold  temperature.  Implementation  of  this  algorithm  is  in  the 
partitioned  data  set  ‘BBli.CCX!  .SOURCli.C  MA5.PDS'.  members  INPOUT4, 
CBM5.  and  FDTABC.  The  source  code  for  thes**  can  be  found  in  Appendix  A. 
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Merging  Hunter  Subroutine  With  Mainstream 
Ablation  Computations 

During  CMA  ablation  calculations,  the  Hunter  subroutine  or  surface  ther¬ 
mochemistry  tables  are  used  to  compute  0 '  and  the  chemical  energy  term  of  the 
surface  energy  balance  equation,  depending  on  the  ablation  mechanism.  The  Hunter 
subroutine  is  used  for  oxidation  ablation,  and  the  surface  thermochemistry  tables 
for  sublimation.  A  switch  from  one  to  the  other  is  based  on  a  comparison  of  the 
wall-surface  temperature  to  an  “ablation  transition  temperature”  criterion.  The 
Hunter  oxidation  method  is  used  whenever  the  material  is  ablating  and  the  wall- 
surface  temperature  is  less  than  the  ablation  transition  temperature;  otherwise,  the 
surface  thermochemistry  tables  are  used. 

The  user  is  given  three  methods  to  define  the  transition  temperature  criterion 
for  oxidation  and  sublimation  calculations.  First,  a  constant  transition  temperature 
may  be  specified  by  the  user.  This  is  the  simplest  and,  computationally,  least  ex¬ 
pensive  implementation.  Second,  a  constant  mass  loss  parameter  (/?')  may  be  speci¬ 
fied  by  the  user.  This  value  of  0'  is  used  to  interpolate  a  corresponding  wall  tem¬ 
perature  from  the  surface  thermochemistry  tables,  which  will  be  used  as  the  transi¬ 
tion  temperature.  This  option  is  slightly  more  expensive  than  the  fust  option.  Third, 
a  search  routine  option  may  be  employed.  The  search  routine  compares  values  of 
0‘  and  its  derivative  from  both  the  surface  thermochemistry  table  and  Hunter 
subroutine  and  finds  the  temperature  with  smallest  differential  between  these  values. 
This  last  option  is  the  most  expensive. 

At  the  transition  temperature,  a  step  in  the  merged  ablation  curve  may  exist  be¬ 
cause  the  values  of  ln(j3')  computed  using  the  Hunter  subroutine  and  the  surface 
thermochemistry  tables  do  not  necessarily  agree  (Fig.  2).  This  may  prevent  conver¬ 
gence  of  the  surface  energy  balance  near  the  transition  temperature.  This  step  is 
avoided  by  multiplying  me  oxidation  ablation  curve  (of  0'  versus  Tw  computed 


Wall  su'facs  temperature  (deyrees  HI 

Figure  2  Merged  ablafion  curve  in  modified  CMA  us¬ 
ing  surface  thermochemistry  tables  and  Hunter 
subroutine. 

using  the  Hunicr  subroutine)  by  the  ratio  of  the  Hunter  value  and  the  surface  ther¬ 
mochemistry  tabic  value  at  she  transition  temperature.  The  magnitude  of  this  merge 
factor  can  be  minimized  by  selecting  a  criterion  that  puts  the  transition  tempera¬ 
ture  in  the  diffusion  limited  ablation  regime. 
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Implementation  of  these  algorithms  is  in  the  partitioned  data  set  ‘BBE.CCC1. 
SOURCE.CMA5.PD3',  members  INPOUT4,  CBM5,  MERGER,  MERGE1,  and 
MERGE2.  The  source  code  listings  are  in  Appendix  A. 

Economy  Feature 

An  economy  feature  that  was  added  for  use  with  the  Hunter  subroutine  merger 
routines  allows  the  user  to  specify  the  frequency  of  iteration  steps  at  which  the 
ablation  threshold  temperature,  the  oxidation-to-sublimation  transition  temperature 
critL  'in,  and  the  merge  factor  are  recomputed.  For  analysis  cases  using  a  trajectory 
with  severe  transients,  the  criteria  should  be  recomputed  at  every  iteration  step. 
On  the  other  hand,  if  the  trajectory  is  long  and  has  mild  transients,  recomputing 
every  five  iteration  steps  may  be  sufficient.  If  the  user  selects  a  frequency  greater 
than  one  iteration  per  recomputation,  a  sample  problem  should  be  run  to  verify 
that  the  threshold  ablation  temperature  and  merge  factor  do  not  change  drastical¬ 
ly  between  iteration  steps.  Selecting  higher  frequencies  will  of  course  result  in  in¬ 
creased  computing  costs. 

Code  Validation 

Several  test  problems  were  run  to  validate  each  of  these  options.  Results  from 
these  problems  were  also  compared  to  results  from  the  previous  version  of  the  CM  A 
code.  The  answers  were  consistent  and  in  good  agreement. 

Usage 

The  executable  program  is  stored  in  the  partitioned  data  set  ‘BBE  CC1. 
LOAD. MODULES  (CMAV05)’  on  the  mainframe  computer.  The  new  features 
are  activated  by  a  new  input  line  at  the  end  of  the  input  file.  This  line  must  be 
present  whether  the  new  features  are  used  or  not.  It  follows  the  existing  JTBL  in¬ 
put  parameter  that  is  used  to  select  the  method  for  computing  oxidation  (i.c.,  to 
use  the  Hunter  subroutine  or  the  EST  tables).  If  the  new  features  are  to  be  bypassed, 
the  new  input  line  should  contain  zeroes  or  blanks.  A  user’s  guide  is  provided  in 
Appendix  C,  and  a  sample  input  file  listing  can  be  found  in  Appendix  D. 
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FUTURE  EFFORT 

Future  code  improvement  efforts  will  bt*  devoted  to  amending  the  Putz  and  Bart¬ 
lett  mass  transfer  correlation  for  blowing  effects  on  convective  heating  in  CMA. 
They  will  also  address  iteration  anomalies  of  the  surface  energy  balance  conver¬ 
gence  scheme  during  ablation  calculations  in  the  diffusion  limited  regime. 

Putz  and  Bartlett  Blowing  Correlation  for  Graphite 

The  existing  implementation  of  the  Putz  and  Bartlett  blowing  correlation  for 
graphite  ablation  in  CMA  needs  to  be  replaced  with  the  actual  equation  from  Ref. 
4.  CMA  also  needs  to  be  modified  to  include  the  ability  to  calculate  ablation  when 
the  Putz  and  Bartlett  method  predicts  a  “fully  blown”  boundary  layer  (i.e.,  when 
there  is  no  convective  heating).  The  following  brief  guideline  is  provided  for  future 
reference. 

1.  Install  the  Putz  and  Bartlett  blowing  correlation  for  range  0  <  <3.  The 

equations  to  be  installed  are  presented  in  Appendix  E.  For  Eq.  (E.7),  the 
molecular  weight  of  gases  at  the  wall  (A/*.)  can  be  computed  using  the  EST 
computer  code,6  and  the  molecular  weigh!  of  gases  at  the  edge  of  the  bound¬ 
ary  layer  ( M, )  can  be  approximated  using  the  tables  of  gas  composition  be¬ 
hind  a  normal  shock  wave. 

2.  For  the  range  of  &'0  >3  when  the  boundary  layer  is  fully  blown,  D.  W. 
Conn  suggests*  that  the  code  be  modified  to  include  algorithms  for  a  surface 
that  is  heated  solely  by  shock  layer  radiation. 

Surface  Energy  Balance  lntcratlon  Procedure 

During  the  Galileo- VEEGA  reentry  analysis,  the  surface  energy  balance  equa¬ 
tion  in  CMA  did  not  converge  in  the  material’s  diffusion-limited  ablation  regime. 
This  is  probably  caused  by  the  flatness  of  the  ablation  curve  in  this  regime.  We 
suggest  a  slight  modification  to  the  iteration  scheme  in  order  to  achieve  convergence. 

First,  some  brief  background  information  on  the  iteration  scheme  is  needed.  The 
CMA  code  uses  a  Ncwton-Raphson  iteration  scheme  to  solve  the  surface  energy 
balance  equation.  The  following  equations  summarize  this. 

d,\ ,  =  d/  -  e/{de/d$') 

or 

"F,.i  ~  T,  - ef ( de/dT)  . 

where 

d/  =  mass  loss  parameter  at  the  nli  iteration, 

d/.  ■  =  mass  loss  parameter  at  the  (i  +  l)th  iteration, 

T,  =  surface  temperature  at  the  rth  iteration, 

7,. ,  -  surface  temperature  at  the  (/  +  l)th  iteration, 

e  -  residual  from  iterating  on  surface  energy  balance  equation. 
de/dd'  ~  derivative  of  c  with  respect  to  d'.  and 

deldT  -  derivative  of  <’  with  respect  to  7'. 


*K  !•..  Pvl?  ind  I-.  t’.  Battled.  "Heal  i  ramfer  and  .AMation  Rate  CofrclatiotM  tor  Rectiir) 
Heal  Shield  and  Noiciip  Application.'*  AIAA  10th  Actovpacc  Sciences  Meeting.  San  !)ie>*o 
(Jan  17-19.  1972). 

'Personal  comnumsca-:.o«  with  the  author. 
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Iteration  terminates  when  the  convergence  criterion  is  satisfied.  If  convergence 
has  not  been  satisfied  within  a  given  number  of  iterations,  the  criterion  is  doubled. 
Ultimately,  if  convergence  does  not  occur  within  50  iterations,  or  if  successive  iter¬ 
ations  yield  identical  residuals,  iteration  terminates  and  the  piogram  continues  ex¬ 
ecution  using  the  value's  computed. 

The  author  suspects  that  the  adjustment  term  in  the  Newton-Raphson  scheme 
is  overshooting  the  converged  value.  Iteration  might  be  improved  by  employing 
a  relaxation  factor  (fr)  on  the  adjustment  term: 

0/+i  =  0,'  -  e/{de/d0')-Jr  , 

where 

0  <  /,  <  1.0  . 

Further  investigation  of  the  iteration  process  during  diffusion-limited  ablation 
calculations  is  needed. 
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CONCLUSION 

Modifications  discussed  herein  have  been  made  to  the  CMA  code  that  allow  the 
Hunter  algorithms  to  be  used  whim  the  ablation  mechanism  is  oxidation,  and  the 
surface  thermochemistry  tables  to  be  used  when  the  mechanism  is  sublimation.  This 
is  a  dramatic  improvement  over  the  existing  implementation  of  this  subroutine  be¬ 
cause  it  eliminates  the  need  for  a  restart  problem  whenever  the  ablation  mecha¬ 
nism  changes.  These  modifications  have  been  installed  around  the  existing  code 
as  options,  meaning  that  the  previous  version  of  the  code  can  be  run  by  simply 
not  evoking  any  of  the  new  features. 
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APPENDIX  A  ) 


Listing  of  Modified  CMA  Subroutines 


OSNAHE  =  '8BE.CCC1 .SOURCE. CMA6.PDS( ATM) * 
DCB=(R£CFN=FB,LRECL=80,BLKSIZE=6160? 

SUBROUTINE  ATH(Z1 ,P1 ,T1 ,W1 ,A1 ,01 ) 

C  U.S.  STANDARD  ATMOSPHERE  TO  700000  METERS. 

C  INPUT  IS  ALTITUDE  IN  FT  (GEOMETRIC).  O'fTPUf  IS, 


VOL=SER=D8D080 
01/19/88  019  14:41:11 


ATM 

ATM 


c 

PI 

PRESSURE 

(LB/F1**2) 

ATM 

c 

T 1 

TEMPERATURE 

(PEC.  RANKINE) 

ATM 

c 

wt 

MOLECULAR  WEIGHT 

(LB /LB-MOLE) 

A7M 

c 

A1 

SPEED  OF  SOUND 

(FT/SEC) 

ATM 

c 

D1 

DENSITY 

(LB-SEC**2)/FT**4 

COMMON 

/ATKOT/  Z ( 22 ) , TM8 ( 22 ) 

,R(21),  PB(22) ,C1 ,C2,C3, 

1 

C7,CR,ZM,RO,GM,GAM, 

RST,GO,P0,W0,GO1 

Z1 

=  C1*Z1 

ATM 

DO  1 

1  =  1,  22 

ATM 

IF  (Z1.LT.Z( I ) )  GO  TC  2 
I  =  23 
I  =  1-1 

IF  (I.EQ.O)  I  =  1 
A1  =  RO  ♦  7  (I) 

A2  =  RO  +  Z1 

A3  =  Z  ( I )**2  -  Z1**2 


AIM 

ATM 

ATM 


WRITE (6. 500) I,Z1,Z(I),C1 ,A1,A2,A3 
500  FORMAT (‘  *»ATM»*  I  ,Z1,Z{  I )  ,C1  ,A1,A2,A3  = 


1 , I3,6E12.5) 


IF 

(1. 

GE.9)  GO  TO  50 

ALTITUDE 

BELOW  90000  METERS 

ATM 

DH 

=  (GM/GO)«{(1./A1)  -  (1./A2))  +  C7*A3/(2.*GO) 

ATM 

T1 

=  TMB(I)  +  (R{ 1 )*DH/C2) 

ATM 

W1 

=  WO 

ATM 

A 

=  GO*WO/RST 

ATM 

DO 

11 

K  =  1,3 

ATM 

J 

=  -1  +  3*K 

ATM 

11 

IF(I.EQ.J)  GO  TO  12 

PI 

= 

P6(l)  *  ( (TMB( 1 )/(TMB( 1 )  + ( R ( I ) *DH/C2 )))**{ A/R ( 1 ) ) ) 

ATM 

GO 

TO 

200 

ATM 

12 

PI 

= 

PB  (  1  )  *  EXP  (  -  A*DH/  (  TMB  (  1  }  *C2 ) ) 

GO 

TO 

200 

ATM 

ALTITUDE 

ABOVE  90000  METERS 

ATM 

50 

Z1 

= 

Z1/C2 

1  F (Z1 . 

GE. 110.0)  GO  TO  51 

W1 

= 

17.98  +  0.239*Z1  -  0.0013*(Z1*«2) 

GO 

TO 

53 

51 

IF 

(21 

.GT. 170.0)  GO  TO  57 

W1 

-.41873644E+02  +  .22496378E+01*Z1  -  ,25825938E-01*(Z1#*2) 

1 

+. 12705198E-03*(Z1**3)  -  ,22989608E-06#(Z1*«4) 

GO 

TO 

53 

57 

W1 

= 

+  .283 12068E+02  +  . 1 1 190901E-01*Z1  -  .  18061034E-03*(Z1“*2) 

1 

+.31829429E-06*(Z1**3)  -  . 16924926E-09*(Z1**4) 

53 

Z1 

= 

Z1*C2 

TM 

TMB( 1 )  +  (R(  1 )*(Z1  -  Z( 1 ))/C2) 

T1 

=  (W1/W0)*  TM 

ATM 

A4 

=  -Z{ 1 )  +  (  TMB( 1 ) MC2/R( 1 )) 

ATM 

A5 

=  W0*C2/(R( 1 )*RST) 

ATM 

A6 

=  Z( 1 )  +  A4 

ATM 

A7 

=  Z1  +  A4 

ATM 

A8 

=  RO  -  A4 

ATM 

A9 

=  ( (Z ( 1 )  -  Z1)/(A1*A21 )  +(1./A8)»ALOG(A7*A1/(A6*A2)) 

ATM 

A10 

=  (Z(l)  -  Zl)  +  A4*AL0G( A7/A6 ) 

A1  1 

=  (  -  ( GM/A8 )  **A9  -  C7*A10)*W0/(R(  1  )**RST) 

ATM 

PI 

=  PB( 1 )*EXP  (All) 

19 
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c 

c 

c 


WRITE(<S.501)W1,TM,T1,P1,G01 
501  FORMAT ( '  **ATM*»  W1 .TM.T1 ,P1 ,G01  =  ’.5E12.5) 


PRESSURE .TEMPERATURE  AND  MOLECULAR  WEIGHT  FOUND. 

ATM 

t'0U  PI  =  PO*P1 

ATM 

Z1  =  Z1/C1 

ATM 

T 1  -  T1*C3 

ATM 

A2  =  RST*  105 . 86 1 26/W1 

A1  =  SQRT  ( GAM#A2#T 1 *G0#C8 ) 

ATM 

01  =  P1/(A2*T1«G01) 

WRITE (6 .502) PI ,Z1,T1,A2,A1,D1 

502  FORMAT 1 '  ##ATM#*  PI ,Z1 ,T1 ,A2,A1 ,01  =  '.6E12.5) 

RETURN 

ATM 

END 

ATM 

20 
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DSNAME  =  'BBE.CCC1  .SOURCI  .CMAS.PDS(CBM:>)  '  VOL =SER=D8D080 

OCB=( RECFM=F8 ,LRECL -80  ,lit  KS I /{ =6 160 )  01/28/88  028  13:10:38 

SUBROUTINE  CBM 

CHARRING  MATERIAL  I  III RMAL  RESPONSE  AND  ABLATION  PROGRAM  ALLOWING  CBM  2 
FOR  UP  TO  FIVE  DECOMPOSING  BACK-UP  MATERIALS  CBM  3 

AEROTHERM  CORPORATION  RM  KENDALL  C  MOYER  CBM  4 

CHANGES  TO  PROGRAM: 

(1/16/87)  SIZE  Of  I  III.  IHE.TQR,  I  CM , TBRP , TALT ,TVEL ,TP I 
EXPAND!  I)  10  120  ELEMINF  ARRAYS 
(1/19/87)  SIZE  Of  i  1  SI N , THSEN , I CP SEN .TLMC, ITS , TCHEM, FBPF , 

TPR.NMG,  IMi.NI  0,  NH  I  .Kll  I  .  I  SEN  , 

EXPANDED  10  ACCOMHODA I f  20  EST  TABLES  V,  i  TH  30 
ENTRIf  S  E  ACM 

(1/29/87)  ALL  0 1 1ll  K  SUBSCRIPTED  VARIABLE  DIMENSIONS  DOUBLED 
AS  RECOMMENDED  BY  L.L.  PER  I  N  I  - 

COMMON  KOUT, IEX.DfN.VR  CBM  5 

COMMON  I H 1 ( 76 ) , II  0( 76) . IR(76) , T T2( 60,20) , TCP ( 60 ,20) ,TKP(60,20) .THZCBM  6 
1(60,20) ,TEP( 60,20) , I  111 (  120)  , THE (  120) ,TQR( 120) ,TCM( 120) ,TT1(60)  INPOU  4 

2,THG(60) ,DH12(4)  .RECORD ( 108) ,SO(40) ,RHO( 20 ) , TEPBF ( 60 , 20 ) 

COMMON  MATL(  101 )  .1)11  (  10  1)  ,TA{  101)  ,H(  101 )  ,RC(  101)  ,RA(  101)  , 

1AREA( 101) ,EMA( 101) ,RAV( 101) ,LGAP j 1 0 1 ) ,QGEN( 10 1 ) , GAP ( 10 1 ) 

COMMON  R0A(  1000)  ,ROB( 1000) ,R0C(  1000)  CBM  12 

COMMON  TPR ( 20 ) , NMG ( 20 ) . 

C  IMG (6, 20) ,NL0(5,?0) , NH I (6,20) ,KHI (5,20) , 

1  TTSEN( 30,20) , 1  USE N (  30 , 20 )  , TCPSE  N ( 30 , 20 ) , TLMC (  30 , 5 ,20 ) , I  SEN ( 20 ) , 

2  TP  I (  120)  .  TTS( 30.6,20) , TCHE M( 30 , 5 ,20 ) ,VFZ, CMH , TBPF ( 30 ,6 ,20) , 

3  NPR.NGS 

COMMON  l  CT.NPC,  I  I  ,  NBM  ,  NUMN  .  NL  ,  Ot  LHG ,  DE  LM  ,  !!F  T  ,  RIIORA  ,RHORB  ,  RHORC ,  TRACBM  18 
1CA,TRACB,TRACC.RHOOA.RIIOOB,RHOOC.EA,EB  ,EC,BA,BB,BC,PS I  A, PS  I B, PS  I C, CBM  19 
2TRACM , PE  T ,PE  TE .KSV.E  I A  .  0 T PR 3 . 0 1 PR2  .DTPRT  ,  1 PR3 , 1 PR2 , THZRO , THF IN,WT,CBM  20 

3  TMWT  , GAMA ,OMG  ,  NO  .  f  .If  II. E  JES.JF  .JfHP.JFH.  INPUT,  D  T  H  I  N  ,  BRP  ,  HCONV ,  CBM  21 

4EPSW.TRES,  INCH ,  f)  t  MB  ,  NN  .  N  I  ,NOl  .CIICRI  .PYCRI  ,TBRP(  120)  ,  NR  . 

5  TX(30,6)  ,  E  1  (  30 . 6 )  .1  2(30, 6), NCON.NBPF.NFIS.BREX, SWELL 

COMMON  B8B( 10,6)  ,t f  (  10,6) ,FF( 10.6) ,PSI ( 10,6) ,RHOO( 10,6) ,  CB 

XRHOR (  10,6)  . 

IROCOMf  SO ,  3 )  ,  OHC  (  10)  .DIIV(  10)  ,RH()C(  10)  ,RHOV(  10)  .P(  10)  ,PP(  10)  , 

XTREE (  10) , 

2GA( 10)  , OMGA (  10)  .  Nf  I (  In) , NLA( 10) ,IT^(60.20) ,IENI(60,20) , 

XTKBU ( 60 ,20 ) . 

3TCBU(  30,  10)  ,X(  10  I)  .  NDIIIi ,  N8M2 ,  TKAC{  10,6)  ,  NBUE  T  (  10)  ,KNST  .  IBUG.TBUC, 

4  T  AL  T  (  120)  ,  TVE  l  (  120)  .  RRGAP  (  101  )  ,AGAP(  101)  ,  ICONI),  IEROS,  I  SR  , 

6  NGC 1 , NCC2 , NGC3 . NCC4  .  I  CON  1 {  101 )  .  IC0N2(  101)  ,TC0N3( 101) ,1C0N4( 101) , 

6  CONOI ( 101 ) , C0ND2 ( lu  1  ) ,C0N03( 101 ) ,C0ND4( 101) , 

7  THC0NV( 101 )  , Tl PSW(  III  1  )  .  I TRES(  10 1 ) ,TQ(  101 )  ,  TEPSO(  101 )  ,  IBF , TL , THD , 

8  JT8L , IORD.RHOCI (20 1 ) ,D!DT(201 ) .H A  1 ,RA2,RA3 
COMMON/OTP T/CPC ( 6 ) , f  M0( 20 1 )  .01 P ( 20 , 10 )  ,CNC( 10  1 ) ,CN( 10 1 )  , Y 1 ( 4 ) , 

1  CNO( 101 ) , T0( 20 )  ,R0(  Hi  1 )  ,N I S0( 20 ) ,BR ,CH ,GS ,SA, IB , TT , ASU , CHD , CMT , 

2  I TS.QRP .RAO.RAl  (  10  1) ,KSU ,CHOM ,CMMT ,OCDT ,OEOT ,0  IDT ,DPOT ,  ITER.KSCT, 

3  PGPU , PRES ,ORP  F .HAD  t  ,SNE  T , OECOM .DE DT T .DSDTB.PGPUT , QCME M , QCOND , 

4  QCONV.QL  OSS, SDNS  I  .  SUMQl  .  tllPR  I  ,  1  SAVE  .  VEl  f  S  .DECOMI  . 

5  PRSATM.QCBf Ml .OCONIU  .UCONVT ,Qt  OSST ,KK ,RR(  101 )  ,DHOG(  101 )  , 

6  RON (  101)  . R 0 T  (  30  1)  .UNCI’  ( 6 )  .ORO  i  ( 6 )  .0 1  ( 4  )  . F A . FB  .EC  ,DT H  .DTHC.OS  I  , 

I  DTA.GSH.COl  U.GSMS  .(.SHI  ,  GSM21  ,DSUI  .  POE  D  ,  TH  ,  AE  Tf  S  ,  OSOTT  , 

8  TEMP  .BE  .LL  .LU  .HI  JIW  _ _____  _ _ _ _ 

COMMON/MERCr /VRM .VHP . IMG. I  PR,  l  1.13 

COMMON/OP  I  I  ON/ ICR  l  I  .BI’CRI  ?  .  T  ABCN  ,  IQPTN,  I  MSG,  Ml  1ER,  IBl  OPT _ 
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COMMON/BLOWI N/BLOW.BI  Of AC 

INTEGER  FFLAG.I FLAG  1  . . . . . 

'  EQUIVALENCE  "(DHI  ,DH1 2 (  1 ) )  ,  (DH2 ,DH12(2) )  , (TS,TA{ 1 ) ) 

DIMENSION  VI  TER ( 101) ,f  t  T  ER ( 101) ,EMISF(200) ,RATG(200) , Y2( 48 ) ,D?( 48 ) 
1 ,Y3{ 16) ,03 ( 16) ,CPC( 101} ,CPV( 101)  ,CP( 101) ,HP( 10 1) ,HC{ 101} ,A{ 101) , 

2  B( 101) ,C(  101)  , D (  1 0 1 ) 


529 

FORMAT ( 17H  1  TERM  1  ON  STOP  ) 

CBM 

50 

542 

FORMAT(/33X14H - OU  1  PUT - ) 

CBM 

51 

582 

FORMAT ( 6E 15 . 7 ) 

5601 

FORMAT ( 1015) 

BUG 

5602 

FORMAT (7E 17. 7) 

5603 

FORMAT ( 6E 17 . 7 ) 

7043 

FORMAT ( 1 6 ,4F 10 .6 ) 

C 

CBM 

106 

C 

CBM 

107 

DNCP ( 3 ) =99999 . 

NMGX=NMG( 1 ) 

KSCT=3 

CBM 

108 

S IG=.481E- 12 

CBM 

no 

C 

CHAR  AND  PYROLYSIS  /ONE  CRITERIAL  DENSITIES 

CBM 

111 

DNCP ( 1 ) =RHO( 2 ) +CHCR 1 # ( RHO{ 1 )»RHO(2) ) 

CBM 

1 12 

DNCP ( 2 ) =RHO( 2 ) +PYCR 1  * ( RHO( 1 ) -RHC( 2 ) ) 

CBM 

1 13 

C 

CBM 

1 14 

c 

INITIAL  VALUES  FOR  1  1  ME  LOOP 

CBM 

115 

c 

CBM 

116 

6  ---- 

--  INITIAL  FACTOR  FOR  0 1 K 1 -TO-TABL ES  MERGE  ROUTINE  &  BLOWING 

FACTOR=- 1 .0 

FFLAG=0 

FFLAG1=0 

BLQFAGr 1 ■ Q  ..  _ 

C 


4101 


C 


I TER=-  1 


DTHC=DTHB 

CBM 

118 

1  AB=0 

CBM 

119 

RSU=ABS ( RSV) 

CBM 

127 

CMFL=0 . 0 

CBM 

129 

DSDTM  =  0.0 

S0EGR=0 . 

CBM 

157 

GSEGR=0 . 

CBM 

158 

EGO=0 . 

CBM 

161 

HW=0 . 

CBM 

162 

TH=THZRO 

CBM 

165 

THDS=TH/RO-OTHIN 

CBM 

167 

THPRT=TH 

CBM 

168 

VRM  =0.0 
CMDL  =0.0 
IRB  =  0 
IRO  =  0 
12  =  0 
14  =  0 
TOLER  =  1 .0 
I  1  =1 

DO  4101  I  =  1  .NUMN 
RATG( I )  =0.0 
EMI SF ( I )  =  0.0 

REWIND  KSCT  CBM  169 

CALL  LCOUNT  (-2,1  Cl  ,NPG) 

WRITE  ( KOUT ,542 )  CBM  171 

.  TIME  INCREMENI 

OTH=OTH I N  CBM  173 
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c 

- NODE  rilICKNtSS  OK  MINIMUM  ALLOWABLE  THICKNESS 

0ELCR=AMIN1 (OEE ( 1 ) .01  1  MJ/5.0 

CBM 

174 

c 

-----  NODAL  TEMP.  1  ROM  PREVIOUS  TIME  STEP 

TSAV£=TA( 1 ) +1 . 0 

CBM 

175 

FA=(  1 .-PSIA)#BA*(RHOOA**(  1.-PSIA)) 

CBM 

176 

FB=(  1 . -PS  1 B  )#BB#(RH00B#*{ 1.-PSIB) ) 

CBM 

177 

FC=( 1 . -PS IC)*BC*(RHOOC#* { 1 .-PS  1C ) ) 

CBM 

178 

c 

-  EXPONENT  TO  ADJ.  CONVECTION  DUE  TO  ABLATIVE  RADIUS  CHANGE 

REX  s  BREX 

c 

CBM 

180 

c 

BEGINNING  OF  TIME  1  OOP 

CBM 

181 

c 

CBM 

182 

c 

NL  a  LAST  ABLATING  NODE 

c 

THFIN  -  TIME  AT  END  OT  PROBLEM 

c 

THPRT  =  OUTPUT  TIME 

410 

IF(NL.GT.I)  GO  10  7412 

THFIN  =  TH 

THPRT  =  TH 

7412 

ITER  =  ITER  +  1 

IF( IBUG.NE.O)  WRITL(6 . f>60 1 )  1  TER , NL . ND8U ,NBM2 , NUMN . JFHP  ,NCON, 

BUG 

1  NFIS 

BUG 

C 

CBM 

184 

C 

CALCULATION  OF  NODAL  PROPERTIES 

CBM 

185 

c 

CBM 

186 

c 

ISR  =  1;  NO  SURFACE  RECESSION  OPTION 

c 

ISR  =  0 ;  SURFACE  RECESSION  ALLOWED 

c 

DSI  =  SURFACE  RECESSION  DURING  TIMESTEP;  INITIALIZED 

c 

c 

■  IN  BLOCK  COMMON 

IF( ISR.NE.O)  DSI  -0.0 

c 

-  NODAL  LOCATIONS  FROM  SURFACE 

DO  108  N=2 ,NL 

CBM 

187 

108 

RA( N- 1 ) =RA( N- 1 ) +0S  1 

CBM 

188 

RA(NL)=RA(NL)+0SI/2. 

CBM 

189 

c 

-  RR  =  CROSS-Sf CIIONAL  AREA  Of  NODE 

CALL  OGLE (NL.RA.RR.NOMN.RAV, ARE A.EMA) 

CBM 

190 

ASUaRR( 1) 

CBM 

191 

c 

J=1-JFH-JF 

CBM 

192 

c 

PROCESS  ABLATING  NODE  PROPERTIES 

c 

CN(N) ,CNC(N)  =  THERMAL  CONDUCTIVITY  OF  PLASTIC  AND  CHAR 

c 

CPV{ N) ,  CPC( N)  =  SPECII 1C  HEAT  OF  PLASTIC  AND  CHAR 

c 

HP ( N ) ,HC( N )  a  SENSIBLE  ENTHALPY  OF  PLASTIC  AND  CHAR 

c 

R0( N ) ,ROT ( N )  =  DENSITY  AND  TOT At  DENSITY 

c 

X(N)  =  WEIGHTING  FACTOR  FOR  PARTIALLY  PYROLYZED  MATERIAL 

c 

RAT(N)  =  THERMAL  RESISTANCE;  DL/(K*A) 

c 

/■* 

GAMA  =  VOLUME  FRACTION 

DO  105  N=1 ,NL 

J= J+JF 

CBM 

194 

RR(N)=RR(N)/ASU 

CBM 

195 

CALL  LOOK  (  3,TA(N)  .  1  I2.TCP.TKP,  1 11/ ,0 ,  Y2  ,  Y2( 4 )  ,3) 

CBM 

196 

c 

- VIRGIN  Pi  AS  TIG  MAIERIAL 

CN( N ) =Y2 ( 2 ) 

CBM 

197 

CPV(N)aY2( 1 ) 

CBM 

198 

HP  (  N)  aY2(  3  )  +011 1 

CBM 

199 

CALL  LOOK  (4,TA(N)  , II 2 (1, 2), TCP (1, 2)  . TKP( 1 .2) , THZ( 1 .2 ) ,0.Y2,D2,3) 

CBM 

200 

c 

-  CHAR  MATERIAL 

23 
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CNC ( N ) =Y2 ( 2 ) 
CPC( N) =Y2( 1 ) 

HC{ N ) =Y2 ( 3 ) +DH2 


C  -  SELECT  MATERIAL  TYPE 

IF  (MATL(N)-I)  103,101,102 
C  -  MAIN  MATERIAL  VIRGIN  PLASTIC 


101  X(N)=1. 

CP(N)=CPV(N) 

H ( N ) =HP ( N ) 

RO ( N ) =RHO (  1) 

ROT { N ) =RHO(  1  ) 

GO  TO  105 

C  - MAIN  MATERIAL  CHAR 

102  X(N)=0. 

CN ( N ) =Y2 ( 2 ) 

N ( N ) =HC ( N ) 

CP ( N ) =CPC( N ) 

RO(N)=RHOC! (N) 

ROT ( N)=RHOC I ( N) 

GO  TO  105 

C  -  MAIN  MATERIAL  PYROLYSIS  ZONE 

103  X(N)  =  RHO( 1 )*( 1 . O-RHOC I ( N)/R0( N) )/ (RH0( 1 J-RHOCI ( N) ) 

H ( N ) =X( N) *HP ( N ) ♦( l.-X(N))*HC(N) 

CP ( N ) =X( N ) *CP  V ( N )  M 1 .-X(N) )*CPC(N) 

K  =  J 

IF(N.EQ.I)  K= 1 

C  - RESIN  FILLER  01  NS  I TY  FROM  MATERIAL  A,  B,  C 

ROT(N)  =  (ROA(K)*ROB(k) )  “GAMA+OMG**(  ROC( K  )  ) 

105  CONTINUE 

IF  (ITER.LE.O) 

1RAT ( NL ) =OEL ( NL ) / ( RR | N!  ) * (CN( NL ) *X( NL ) ♦CNCJ NL ) *( 1 .0-X(NL ) ))) 
IF(NDBU.LE.O)  GO  TO  /«» 1 3 


CBM  201 
CBM  202 
CBM  203 

CBM  204 

CBM  205 
CBM  206 
CBM  207 
CBM  206 
CBM  209 
CBM  210 

CBM  211 
CBM  212 
CBM  213 
CBM  214 


CBM  2 1 7 


CBM  219 
CBM  220 


DECOMPOSING  BACKUP  MAtERIAL  PROPERTIES 


DO  740  L= 1 , NOBU 
LL=NF I (L) 

LU=NLA(L ) 

N=2*L-1 

DO  741  I =LL  .  I U 

CALL  LOOK  (  20+'2"L  ,  T  A (  I  )  ,  T  T5(  1  .N)  .  TCBU(  1  ,N)  ,TKBU(  1  ,N)  ,  TENT  (  1 . N) 

C  ,  0 ,Y2 .02 , 3  ) 

CN ( I ) =Y2 ( 2 ) 

CPV( I ) =Y2 ( 1 ) 

HP (  I )=Y2( 3 ) ♦0MV(  I  ) 

CALL  LOOK(21*?*l  .  I A (  I  )  ,  T  T5 {  I  ,  2*L ) ,  1 CBU (  1 , 2*1  ) .  TKBU(1,2«L). 
C  TENT (  1,2*L)  ,  U , Y2  ,02 , 3 ) 

CNC( I ) =Y2 ( 2 ) 

CPC(  I  ) -Y2 (  1  ) 

HC  (  I  )  -  Y2  (  3  )  ♦!)HC(  l  ) 

II  (  I  )=X(  I  )  *HP  (  I  )  ♦(  1  ,U-X(  I  )  )“IIC(  I  ) 

RR ( I ) = ARC A ( I )/ASU 
I F ( ITER.NE.O)  GO  10  T4  1 
RO  (  I  )  =X(  I  )  *RHOV  ( l  )♦(  1  ,0-X(  I  )  )“RH0C{1  ) 

RON (  I ) =RO{  I  ) 

RAT  (  I  ) =  0EL(  I ) / ( RH (  1)"(CN|  l)*X(  I)  ♦  CNC(  I ) * (  1  . 0  -X(  I ) ] ) ) 

741  CP ( I ) =X( I )*CPV( !)♦(' -0-X{ I ! )*CPC( I ) 

740  CONTINUE 

7413  IF  (NUMN.LT ,NBH?)  GO  10  112 
RKGAP(NL)  ^  AGAP(NI  J/ASU 


CBM  231 
CBM  232 
CBM  233 
CBM  234 
CBM  235 
CBM  236 
CBM  237 
CBM  238 
CBM  239 
CBM  240 
CBM  24 1 
CBM  242 
CBM  243 
CBM  244 
CBM  245 
CBM  246 


CBH  249 
CBM  250 
CBH  251 
CBM  252 
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NON-OECOMPOSING  BACKUP  MATER  I  At  PROPERTIES 


HO  107  N=NBM2 , NUMN 

RR  (  N ) =AREA( N ) /ASU  CBM  255 

RRGAP { N)  =  AGAP ( N )  / ASU 

KT=MATL (N)  CBM  256 

CALL  LOOK ( KT+2 , TA( N ) ,  T 12  ( 1 ,KT )  ,  TCP(  1  ,KT)  ,  TKP  ( 1 ,KT) ,0,0 ,  Y2 ,02 ,2)  CBM  257 

CP ( N ) =Y2 ( 1 )  CBM  258 

CN( N) =Y2( 2 )  CBM  259 

-  THERMAL  RISISIANCE 

RAT(N)=OEL(N)/(CN(N)*KK(N))  CBM  260 

107  RO( N ) =RH0( KT )  CBM  261 


GAP  RESISTANCES 

DO  106  N  =NL , NUMN 
RATG(N)  =  0.0 
EMISE(N)  =  0.0 
KX  =  NBM2 

IF(N.EQ.NL)  GO  10  /4/ 

KX  =  N+1 

IF  (N.I.T.NBM2)  GO  10  1U6 
7147  I  F  ( LGAP  (  N)  .  E  Q .  0  )  GO  10  106 
TOUM  =  (TA(N)+TA(KX))/2.0 

IF  (LGAP ( N ) . FQ . 1 )  HA  -  P I F  1  ( TOUM  ,  TOON  1 , NGC 1 ,COND 1 ) 

IF  (LGAP(N)  .EQ.2)  HA  P  I  F  1  j  TOliM ,  TC0N2 , NGC2  .C0ND2) 

IF  (LGAP(N) .EQ. 3)  HA  -  P I F 1 ( TOUM , TOON 3 , NGC 3 ,  C0ND3 ) 

IF  (LGAP(N)  .EQ.it)  HA  P I F 1 ( TOUM . IC0N4 . NGC4 .C0ND4 ) 

HELIUM  CONDUCTIVITIES  P-IA1M 

IF  (LGAP(N) .EQ.6)  HA  1 . 0E-6+LXP ( 5 . 955-8 153 . 0/ ( 2454 . 0* TOUM) ) 

IF  (LGAP ( N ) . EQ . /)  HA  -  0.0 
IF  (l.GAP(N)  .NE.5)  GO  10  746 
YOS  -  P  =  1  AIM 

IF(TDUH.GI  .3000.0)  IIA  -  1.0E-6* 

1  EXP( 10. 116- 103176. 0/(10941. O+TDUM)) 
NOS  -  P  =  1  ATM 

IF(TOUH.LE .3000.0) 

1HA=3 . 167E-7* 

2  SQR 1 ( I DUM ) / ( 1 .0>441 . /•( 10 . 0"*( -2 1 . 6/ TOUM) ) / 1 DUM) 
746  KT  =  MATE (N) 

CALL  LOOK (K 1*2. 10UM  .  1  1 2(  1  ,K T  )  .  11 PBF < 1 ,K T ) ,0 ,0 .0 . Y2 ,02 , 1 ) 

EMI  =  Y2( 1 ) 

KT  =  MATE { N+  1 ) 

CALL  LOOK ( K 1 +2 , 1UUH  . 112(1. KT).  TEP (  1 , KT ) ,0 .0 .0 , Y2 ,02 , 1 ) 

EM2  =  Y2 { 1 1 

FE  =  1 .0/{ 1 .0/1  Ml  ♦  1 . 0/E  M2  -  1.0) 

RATC(N)  =  HA«RRGAP(N)/GAP(N) 

EMISF(N)  -  1 . 0/St  <;/M  /MKGAP  (N) 

IF  (  IBUC.NE  .0)  WRI It  (6.5602)  l Ml ,1  M2 ,HA,» t ,HR(N) ,GAP(N) , TDUH , 

1  RRGAP  (  N  )  .  Al.AP(N) 

106  CONTINUE 

BACK  WAU  M1A1  IKANSIIR  USING  IIME  TABLES  -  U P  .SEPT . 19/5 . 

TM  =  CUKKf NT  T I  HI 

IQ  =  TABLE  1  I  Ml  VAI  HI  S 

THCONV  ^  B.W.  C0NV1  C 1  I  ON  C0EFMCIENT 

TCPSW  =  B.W.  (HMISIVIfY  TO  SPACE 

TEPSO  s  B.W.  EMMISIVI1Y  10  R( 51  RVO I R 
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TTRES  =  RESERVOIR  ItMPERATURE 

HRES  =  TOfAL  MEAT  IRANSFER  COEFFICIENT  AT  BACKWALL 
DEL  =  NOOE  THICKNESS 
QLOSS  =  B.W.  heat  mux 

QLOSST  =  TIME  INTEGRATED  B.W.  HEAT  FLUX 

CMT  =  AMOUNT  OF  CHAR  ABLATION 

CMMT  =  TIME  INTFGRA1EO  CHAR  ABLATION 

OTH  =  TIME  INCREMENT 

OTS  =  CHANGE  IN  SURFACE  TEMPERATURE 

112  EPSW  =  PIF1(TH,TQ,IBF, TEPSW  ) 

EPSD  =  PIF1(TH,1Q,IBF,TEPSD) 

TRES  =  P IF  1 ( TH, TQ.  I  HI  , TTRES  ) 

HCONV=  P I F 1 ( TH , TQ , I  HI  ,1 HCONV) 

HRES=S I G#EPSW* ( TA( NllMN ) ♦TRES ) * ( TA( NUMN ) **2+TRES**2 ) +HCONV 
1  +S  I  G*EPSD*TA(  NUMN )  *♦  * f| /  (  TA{  NUMN ) -TRES ) 

RAT ( NUMN+ 1 ) =2 . / ( HRE  S*RR { NUMN ) ♦ . OOOOOO0 1 ) 

QLOSS  =0.0 
IF(HRES.NE.O.O) 

1QL0SS= ( TA( NL ) -TA{ NUM ) )  / ( 0 . 5*( RAT ( NL ) +RAT  ( NBM) ) +RC( NL ) /RR ( NL ) ) 


QL0SST=QL0SST+QL  0SS*0 1H/AREA) 1 ) *ASU  CBM  265 

CMT=CMT+RH0{ 2 ) *DSDTB*ASU/AREA( 1 )*DTH 

CMMT  =  CMMT  ♦  RHO( 2 ) *OSDTM*ASU/AREA( 1 ) *DTH 

DEL ( NUMN  ♦  1)  =  CN ( NUMN )/( HRES  ♦  0.00000001)  CBM  267 

RR(NUMN+1 )=RR(NUMN)  CBM  268 

DTHS=DTH  CBM  269 

DTS=TSAVE-TA( 1 )  CBM  270 

IF ( IBUG.NE .0)  WR I Tt (6,5602)  (RAT ( I ) ,R0( I )  ,RATG( I ) ,  BUG 

1  EMISF ( I ) ,CP( I ) ,CN( 1 ) ,TA( I ) , 1= 1 ,NUMN)  BUG 

I F ( ITER.EQ.O)  GO  TO  606 

CeM  272 

OUTPUT  CBM  273 

CBM  274 

JJJ  =  1;  MEANS  LAST  ITERATION  COMPLETED 


IF (TH-THPRT.LT.-O. 0000 1 1  CO  TO  4410 
3000  JJJ=0 

CALL  OUTPT(JJJ) 


c 

IF  (JJJ.EQ.1)  GO  TO  1 

CURRENT  TIME  (TH) 

4410 

DT  H=AM 1 N1 ( DTH8 .OtLCH/ ( DSDTB+ .000000 1 ) 

, TH-THDS ,  50 . 0/ ( ABS ( T SAVE - T A ( CBH 

434 

11))+. 1 ) *DTH ) 

CBH 

435 

TSAVE=TA( 1) 

CBH 

436 

C 

606 

OTH={THPRT-TH)/( AINI ( ( TMPRT-TH)/UTH+1 
th=th»dth 

IF ( TH.GT . TBUG)  1  BUG  1 

1* l«t  1) 

.0001)) 

CBH 

44  T 

VF  =VF  2 

CBH 

442 

601 

If  (TTH{  t  ♦  1 )  .Ct  .  TM-U.  110001)  GO  10  604 
IF ( !♦! .GE . 1 H 1 ( 1) )  GO  10  604 

1  =  1  +  1 

IF  (  TTM(  1  ♦!  )  .  Nt  .  T  Tll(  IJ)  GO  TO  601 
THbTH-OTH 

THOS=T  TH (  1 J-DTHIN 

C8M 

448 

D  TH=AMAX 1 (OTH IN. 1  1 M  (  1 )- TH) 

CBH 

449 

THaTH+OTM 

CBH 

450 

GO  TO  601 

CBM 

451 

C 
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TIME  DEPENDENT  VAI  Ul  S  IKOM  TABU 


DEN  =  I NTERPOl  AT  I  ON  KAI 10 

CH  =  HEAT  TRANSFER  COIU  ICIENT  (RUCH) 

QRA  =  RAD  I  AT  ION  fl  UX  10  SURFACE  (OPTION  1  is  3)  OR 
RECESSION  (DPI  ION  2) 

PRES  =  NATURAL  lOGARUHM  OF  PRESSURE 
HE  =  RECOVERY  ENTHAI  PY 

BRP  =  BLOWING  RLOUCIION  PARAMETER,  LAMBDA 
VELFS  =  VELOCITY 
AFTFS  =  ALTITUDE 


604  DEN=(TH-TTH(  I  )  )/(  I  1  tl (  I  +  1  )-TTH(  I  )  )  CBM  452 

IF  (TTH( 1  +  1 )  .LE . T TH(  I ))  DEN=0.0 
CH=TCM( I )+DEN*(TCM( I + 1 )-TCM( I ) ) 

QRA=TQR  (  I  )  +OEN*(  TQR  (  I + 1 ) -TQR (  I  )  )  CBM  456 

PRES=TP I ( I )+DEN“( TP  I ( I  +  1 ) -TP  I ( I ) )  CBM  457 

HE=THE ( I )+DEN*(THE (1  +  1 ) -  THE  {  I ) )  CBM  458 

8RP=TBRP( I J+DEN* ( TBKP ( I ♦ 1 ) -TBRP  (  I  ) )  CBM  459 


VELFS  =  TVEL(I)  +  OF N* ( TVEL ( I + 1 ) -TVEL ( I ) ) 


AFTFS  =  TALT(I)  +  Of N» ( T ALT( I ♦ 1 ) - T ALT ( I ) ) 

- SELECT  PROBUM  OPTION  (1,2  OR  3) 

I F ( IBUG.NE.O)  WRI TF(6,5602)  TH ,CH ,QRA , PRES , HE , BRP ,ASU , VELFS .AFTFS 


1 1  =  1 

IF (CH.GT .0.0) 

1  1=2 

CO 

10 

7>liO 

CBM 

460 

CH=0 . 0 

1 F ( HE . GT . 2 . 0) 

GO 

10 

6(H) 

CBM 

463 

1  1=3 

VF  =HE 

CBM 

466 

HE  =0 . 

CBM 

467 

IR(  1)  =  l 

IF(  ITER.NE.O) 
l)EOT=0  . 

GO 

10 

610 

CBM 

468 

1  f  E  R  =  1 

CBM 

471 

GO  T0  3000 

CBM 

472 

DECOMPOSITION  (PYKOtYSIS  OR  CHARRING) 


610  IF ( OTH . CT . 0 . 00000  I  )  GO  TO  606 

WRITE  (KLoT.582)  III, Dill, DTHS,Dlim.THOS,DTS,OELCR,DSOTB 
TH-THF  IN 
GO  TO  3000 

608  CALL  DECOMP 

CALCULATION  OF  IMPIICU  1 EMPERAI URE  COEFFICIENTS  FOR  IN-DEPTH 
ENERGY  EQUATION  MAIHIX  AND  INTERNAL  ENtRGY  RATE  TERMS 


CBM  475 
CBM  476 
CBM  477 

CBM  711 
CBM  712 
CBM  713 
CBM  714 


IMI N  -  INTEGER  /l RO 

NLH  =  NL  -  1 

Nl  =  LAST  ABLATOR  NOW 

CSM  -  ACCUMULAMO  P/UOlYSIS  CAS  I  I  OW  RATE  ENTERING  A  NODE 
DHOG  =  ACCUMUl  A !  1 0  P.ROIYSIS  GAS  GENERATION  IN  A  NODE  PER  UNIT 

AREA  AND  IIHIS  NO.  OF  NOtlllETS  PER  NCDE  ,  FINALL7  ADJUSTED 
TO  AMOUNT  01  I-YROTYSIS  GAS  GENERATION  IN  A  NODE. 

ORODTD  TOTAL  RATI  Ol  CHANCE  Of  DENSITY  AT  CONSTANT  Y  FOR 
CURRENT  NODI 

OSDT  =1  SUM  ACL  RE  U  SSI  ON 
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RR  =  NORMALIZED  CROSS-SECTIONAL  AREA  Of  NODE 
DEL  -  NODE  THICKNESS 
DVB  =  CONDUCT  I VI IY  PARAMETER 
XI  =  WEIGHTING  VARIABLE 
PETE  =  DENSITY  TfRM 
PET  =  DENSITY  FACTOR 
RAT  =  CONDUCTION  Rf SIS  FENCE,  D(  /KA 
CPI  =  SPECIFIC  Hf  A 1  A I  TOP  NODE 
CP  =  SPECIFIC  HF At  AT  A  NODE 
CPGAS  =  SPECIFIC  HI  A I  OF  PYROLYSIS  GAS 
HI  =  ENTHALPY  At  TOP  NODELET  IN  A  NODE 
HBAR  =  TEMP.  DEPEND! N!  REACTION  ENTHALPY 
HGAS  =  ENTHALPY  Of  PYROLYSIS  GAS 
GSEGR  =  ENERGY  TERM.  SUM  OF  HGAS"DMDG  OVER  NODES 
SOEGR  =  TERM  HGAS"UMOG,  SUMMED  OVER  ALL  NODES 
EGO  =  ENERGY  LEAVING  SURFACE  Wl TH  PYROLYSIS  GAS 
HW  =  ENTHALPY  Of  EDGE  GASES  AT  WALL  TEMPERATURE  (OPTION  1) 
OR  ENTHALPY  Of  PYROLYSIS  GASES  AT  WALL  TEMP  (OPTION  3) 
ROT  =  DENSITY  OF  TOP  NODELET  IN  A  GIVEN  NODE 
RC  =  CIBTACT  RES  IS  TENGE  BETWEEN  NODE  AND  NEXT  NODE  DOWN 
RON  =  NEW  DENSITY  OF  A  NODE 
RO  =  OLD  DENSITY  OF  A  NODE 


DVB=0 . 

CBM 

715 

G0EGR=0. 

CBM 

716 

c:'FGR=0 . 

CBM 

717 

TB-0  . 

CBM 

718 

RAT ( . ):?.*RAT( I ) 

CBM 

719 

CPNl.  =v-'J  (  Ni  j 

CBM 

720 

NLM=NL- T 

CBM 

721 

1 M 1 N~0 

CBM 

722 

DSXX  =  DSDT 

If  (  ISR.NE.O)  DSOT  =  0 

.  ABLATING  NODt  COEFFICIENTS  EXCEPT  LAST  NODE 

DO  30  1  =  1 M  1  N  , Nl. M 

CBM 

7z3 

1 F ( 1 . LE . 0 )  GO  TO  lb 

GSM=GSM-OMOG( 1 ! 

CRODTO=-OMOG(  1  )/(RR(  1  ) "OEL  (  1  )  ) 

CBM 

726 

F  ACT  T  =0  TH/  (  DEL  (  1  )"HH(  1  )  ) 

CBM 

727 

F ACT 2 -GSM/ ( DEL (  1  )»KK(  1  )  ) 

CBM 

728 

A ( 1 ) =  -F  ACT  1 “DVB 

CBM 

729 

DVB=1 .0/(0. 5*( RAT ( 1 )+KAT( 1+1) )+RC( 1 )/RR( 1 ) ) 

CRM 

730 

TERM2=R0N( 1 )  "CP  ( 1 ) -D 1  !("( CPGAS"(DR0DTD-FACT2 ) 

CBM 

731 

1  -DSDT"RO 1 "CP ! /DEL ( 1 ) ) 

CBM 

732 

TERM 1=F ACT  1 "OVB 

CBM 

733 

B ( 1 ) =TERM2-A( 1 )  +  TE  RM  t 

CBM 

734 

C( 1 Js-TERMI 

CBM 

735 

D(  1  )  =TA(  1  )  "TERM2+ (  HGAS  "DRODTD -HIT AR"  (  R0N(  1  ) 

CBM 

736 

1  -RO( 1 ) }/D!H-f  ACI2»HGAS-DSDI"R0T"H J/OEL( 1 ) ) "DTH 

CBM 

737 

5  RO T  =ROT (  1  +  1 ) 

CBM 

738 

PE  TE  =  0 . 0 

Z/Z=RHO( 1 ) -RHOC 1 { 1+1) 

IF  (Z2Z.NE.0.0)  Pt  II  KHO(1)/ZZZ 

PET  -  PE  TF*RHOC  1(1  +  1) 

X1=PETE-PFT/R01 

CBM 

7  39 

CP  1=CPV(  1  ♦  1  )  "XT  +(;»•<; (  1  ♦  1  }»(  1  .O-XI  ) 

CBM 

740 

MT=HP( 1  +  1 ) *X  1 +  MC (  1 ♦ t  )  " (  1 .0-X1  ) 

CBM 

74  1 

CP(  1 ♦ T ) -CPV( 1  +  1  )»X{  t ♦ 1 ) +CPC(  1 ♦ t ) "( 1 .0-X(  1  +  1 ) ) 

CBM 

742 

T N  =  * ROT  "HBAR +R0 1  "II 1  ♦  I 

CBM 

74  3 

MBAR  =  PC  T  E  "HP  (  1+  1  )-Pl  l/HHO(  1  )"IIC(  1 +1 ) 

CBM 

744 
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T=-R01#H 1+RO 1#MBAR  CBM 

CALL  LOOK  (2,TA( 1+1) . Ill, THG, 0,0,0, HGAS ,CPGAS , 1 ) 

HCAS=HGAS+DELHG  CBM 

GSEGR=GSECR+HGAS*DMDG( 1+1)  CBM 

SOEGR=SOEGR+HBAR,tl)M()G(  l+t)  CBM 

IF ( I .GT ,0)  GO  TO  25 
ECO=GSMS*HGAS 

HW^HGAS  CBM 

GO  TO  30  CBM 

25  T£RM3=( -FACT2#CPGAS-I)S()  T  *R01  *CP  1/OEL (  I  ) )*OTH  CBM 

C( I ) =C( I ) +TERM3  CBM 

D (  I  )  — 0  (  I  )  +  IA(  1  +  1  )*ll  HMJ+(FACr2*HOAS+OSDT»R01»IU/DEL(  I  )  )  *OTH  CBM 

TB=TB-TN*DSDT»RR( I )  CBM 

30  CONTINUE  CBM 

A(  1 )  =OTH/OEl.  (  1 )  CBM 

Tl  =  TT+TB*DTH/ARl  a(  1  ) «AhU  CBM 

C  . . .  NOW  THE  I  AST  ABLATING  NODE  REQUIRES  DIFFERENT  TREATMENTCBM 

ORODTD=-DMDG( NL  )  / ( RR ( Nl  )*DEL(NL))  CBM 

FACT1=DTH/(DEL(NL)*KR(NL))  CBM 

A(NL)=-FACT1*DVB 
I F ( LGAP ( NL ) . NE . 0 ) 

1DVB  =  RATG( NL  )  +  4 . 0» 1 A< NBM) **3/EM I SF ( NL ) 

IF (LGAP (NL) .EQ.O)  UVB  -  2 . 0/ ( RAT { NL ) +RAT ( NBM) ) 

C(NL )=-FACT1*DVB  CBM 

T ERM2=R0N ( NL ) *CP ( Nt  ) - ( CPGAS*DR0D TD+( DSDT/OEL ( NL ) ) *  CBM 

1  (RO  ( NL ) *CPNl  -R01*CP1 ) )*OTH  CBM 

B ( NL )  =  TERM2  -  A(Nl ) 

I  F  ( LGAP  (  NL  )  .EQ.O)  H  (  Nl  )  =  B(  NL  )  -  C(Nt  ) 

IF (LCAP(Nl) .NE .0)  H ( Nl  )  =  B ( NL )  ♦  FACT  1  * ( RATC( Nl  ) 

1  ♦  4 . 0* T A( NL ) **3/EM I SF ( NL ) ) 

D(NL)  =  TA(NL)*1ERM?  +  l)III,,(HGAS*OROOTD-HBAR*(RON(NL  )-  CBM 

1  RO(NL)  )/01M+l)S0r*(RO  (  NL  )  “H(  NL  ) -R0 1  *H  1  ) /DEL  ( NL  )  )  CBM 

2  ♦  QGEN(NL )»OTH 

i  F  (  LGAP  (  NL  )  .NE  .0)  t)(NI  )  -0(  NL  )  ♦  3  .  U*FACT  1  *  (  TA(  NL  )  **4-TA(  NBM)  **4  ) 

1  /EMISF(NL) 

K  =  NL  CBM 

GSM=GSM-OMOG( NL  )  CBM 

I F ( NDBU .EQ.O)  GO  TO  /I /I 
F  ACT2-GSM/ j  OEL ( Nl  )*HR(Nl  )) 

TERM2=FACT2»CPGAS*l)TII  C'.’M 

B ( NL ) =8 ( NL ) +TERM2  CBM 

0(NL)=0(NL)  +  TA(NI  )»1t KM2-FACT2»HGAS»DIM  CBM 

CALL  LOOK ( 2 , TA( NBM) ,1  I  I , THC,0 ,0 , O , HGAS , CPGAS , 1 )  CBM 

HGAS ■  =  HGAS  +D EL  FIG  CBM 

C ( NL ) =C( NL  ) -FACT  2 "CPGAS *0 TH  CBM 

0 (  NL  ) =0 ( NL ) -TA(  NBM )  “I  AG.  I  2*CPGAS“D1H+F  ACT2*HGAS*DTH  CBM 

7171  CONTINUE  CBM 

C  -  NOW  I  OR  1)1  (.OMPOSING  BACK-UPS  IF  ANY  CBM 

IF  (NDBU.LE  .0)  GO  10  /.*5 0 
00  720  l = 1  ,NDBU 

LL  =NF i ( L  ) -  1  CBM 

LU=Nl A( L )  CBM 

00  724  1  I  =Ll  .1  U  CBM 

If  (  l-NF  I  (L  )  .EQ.  -  1 )  GO  10  726 
GSM=CSM-OMOC( I ) 

0V8S-0VB  CBM 

K  -K  ♦  1  CBM 

OROO  1  D  =  -0M0C (  I  >/(!<«(  I  ) "OIL  (  l  )  )  CBM 

F  ACT  1  -  DT  M/  (  0!  I  (  1  )  “l(R  (  I  )  )  CBM 

F ACT2*CSN/(0ll  (  I  )*RR(  I ) 1  CBM 


745 

747 

748 

749 


752 

753 

754 

755 

756 

757 

758 

759 

760 

761 

762 

763 


766 

76/ 

768 


7/u 

771 


7/2 

7/3 


776 
77/ 
7/8 
7  79 

780 

781 
78? 

783 

784 


78/ 

788 

789 


/9? 
/  91 
/  94 

795 

796 
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A(K)=-f ACT  1*0 VH  CBM 

DVB  -  T  . ()/{ 0 . 5*  ( HA  I  (  l  )  ■*■?-? A T (  1*1)  )  ♦RC (  I  )/RR(  I  )  )  CBM 

T£RM2=RCN(  I  )"CI*{  I  )  -I)  I H* ( CPGAS* ( ORODTO-F  ACT? )  )  CBM 

TERM1=fACT  CBM 

B(K)=TERM2-A(K)+11KM1  CBM 

C( K ) =- TERM1  CBM 

D(K)=TA( I )*Tf KM2+(HCAS»ORODTD-HBAR*(RON( I )-R0( I ) )/DTH  CBM 

C  -f  ACT2*HGAS )  #D III  CBM 

If ( l-NLA(NDBU) )  726,  /2  /  , 727  CBM 

726  CP(  l-M  )=CPV(  1  +  1 )  #X(  I  +  1  )+CPC(  IH  )•(  1 ,0-X(  1  +  1 )  )  CBM 

HBARS=HBAR  CBM 

HBAR  =  P  (L  )  *HP  (  I  ♦  l  )  -  f’P  (  L  )  /RHOVj  l  )«HC(  1  +  1)  CBM 

CALL  LOOK  { 2  , TA(  I  +  1 )  ,  m , THG .0 ,0 ,0 , HCAS ,CPCAS , 1 )  CBM 

HGAS=HGAS+DELHG  CBM 

t r (  l-NFI  (L)+1)  721)1,7241,727 

727  TERM3=  ( -f ACT2»CPGAS)*DTH  CBM 

C ( K ) =C (K ) +TERM3  CBM 

D(K)=0(K)+TA< 1+1 )»TERM3*FACT2«HGAS*0TH  CBM 

7241  CONTINUE  CBM 

720  CONTINUE  CBM 

C  - . .  NOW  FOR  BACK  UPS  If  ANY  CBM 

7250  If (NUMN.LT.NBM2)  GO  10  60 
DO  50  I =NBM2 ,NUMN 

K  =K  + 1  CBM 

f  ACT 1=0TH/ ( DEL ( I ) *RR ( I ) )  CBM 


0 ( K )  =  TA( I )*R0( I )*CP( I )  ♦  QGf N( I ) *DTH 
If (LGAP( I ) .Eq.O)  CO  10  41 
1.1  =  1-1 

If ( I . EQ.NBM2)  L 1-Nl 
I f ( LGAP ( L  1  ) .EQ.O)  GO  TO  42 

A ( K )  =  - f  AC  T1*(4.0*IA(l  1  )«*3/tMISf (L 1  )  ♦  RATG( L 1  )  ) 

C  (  K  )  a  -fACT  1*(4  .()•  1A(  I  ♦  1  )»*3/»  MISf  (  I  )  ♦  RA I G  (  I  )  ) 

B(K1  =  R0(  I  ) "CP (  I  )  ♦  f  AC  T 1 • ( RA !G(  I  )  ♦  RATG ( L 1  )  ♦ 

1  4.0*TA(  I  ) **  3 “ (  1.0/EMISf  (  I  )  ♦  1  .O/EMISf  (I.  1  )  )  ) 

0  (  K ) =0 { K 1+3 .  0*F  AC 1 1“( ( TA( I  )**4-IA(L1  ) **4  )  /EM  I Sf ( L 1  ) 

1  +(TA(I}»»4  -  IA( l+1)»*4)/EMlSf ( I )  ) 

GO  "0  43 

41  LI  =  1-1 

If {  I  .EQ.NBH2)  l  1-Nl 
If (LGAP(l  1 ) .Eq.O)  GO  IO  44 

A  (  K  )  =  -f  ACT  1  •  (  KA I  f.  ( l  1  )  ♦  4  .  O*  IA(L  1  )  *»3/EM  I  Sf  (L  1  )) 

C(K)  -  -FACT  1*2  0/ ( H A  I (  l )  ♦  R A  T (  I ♦ 1 ) ) 

B(K)  =  RO ( I ) *CP ( I )  -  C(K)  ♦  FACT 1»(RATG(L 1  ) 

1  ♦  4 . 0“ TA(  l  )*•  3/1  Mlbf  |U  )  ) 

0  (  K  )  *  0  ( K  )  ♦  3 . 0-F  ACM  *(  TA(  I  )««4  -  1A(L1  !  **4  )  /EH  I SF  ( L  1  ) 

GO  TO  43 

44  A  (  K  )  ^  -FACT  1  »OVB 

OVB  a  2 . 0/ (RAT ( I )  ♦  RAt ( 1+1 )) 

C { K ) k - F  AC  T 1  *  0 VB  CBM 

0 { K ) =R0 ( I ) *CP ( I ) *C( K ) - A( K )  CBM 

GO  TO  50 

42  A  ( K  )  2  -f  ACT  1 *DVH 

C ( K )  *  -F ACT 1»|PAIG(  I  1  ♦  4 .0* TA(  I ♦  1  )**3/T MI$F  |  ■ )  ) 

II  (  K  )  *  HO  (  I  )  *C?  (  I  )  -  A  |  ft.  )  ♦  F  AC  i  I “ ( RA : G(  I  )+4.0*IA(  I  ) **  3/t H I SF  (  I  )  ) 

0(K)  *  0(K)  ♦  3 -U»»  AG  I  l«t  TA(  I  )  ••)*  -  TAJ  I  +  1)**41/EHISF  (  1  ) 

4)  OVB  b  2.0/ (RAT | I J+HAI ( I +1) > 

50  CONT I NUt 


797 

79B 

799 

BOO 

801 

802 

803 

804 

805 

806 

807 

808 

809 

810 

812 

813 

814 
822 

823 

824 


827 

828 


831 

832 


C 

C 

C 


NOW  IF  IMt  1  AST  NOTH  WAS  INSULATED  Vf  MUST 
HI  PA  IN  I  AM  II  ANO  C. 
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C 


60 

If  (  IBUG.NE.O)  WKI II  (6,9603)  (A( 1 ) ,B( 1  * ,C( 1 ) ,D( 1 ) ,RR( 1 ) ,DEL( 

1). 

BUG 

1  l=1,NUMN) 

BUG 

l"(  IBUG.NE.O)  WRI  11(6,5603)  (QGLN(i),  l=1,NUMN) 

If fHRES.NE.0.0)  GO  10  80 

B { K ) =8 ( K ) +C ( K ) 

C(K )=0. 

CBM 

837 

0 

-  NOW  BEFORE  GAUSS  REDUCTION  REWRITE  LAST  LINE  OF 

MATR 1 X 

CBM 

838 

80 

0(K)-0(K)-C(K)#TRES 

CBM 

839 

L=K 

CBM 

890 

DO  90  1=2, K 

CBM 

891 

L=L-1 

CBM 

892 

D(L)=D(L)-C(L)/B(I.  +  1)*D{L+1) 

CBM 

843 

90 

B(L)=B(L)-C(L)/B(L+1)#A(L+1) 

CBM 

844 

B(1)=B( 1)/A(1) 

CBM 

845 

D(1)=D(1)/A(1) 

CBM 

846 

1 F  (  IBUG.NE.O)  WRI TE(6,5603)  (A(  1 ),B(I),C(I),D(  1 ) ,RR( 1 ) ,DEL( 

1), 

BUG 

1  1=1, NUMN ) 

BUG 

PGPU=EGO-GSEGR 

CBM 

847 

PGPUT=PGPUT+PGPU*DTH/AREA{  1)*ASU 

CBM 

848 

DECOM=GSEGR-SOEGR 

CBM 

849 

DECOMT=DECOMT+DECOM*0  TH/AREA( 1 ) *ASU 

IF  (  ISR.NE.O)  DSD T  -  DSXX 

CBM 

850 

0 

CBM 

851 

C 

SURFACE  BOUNOARY  CONDITION  PACKAGE 

CBM 

85° 

c 

CBM 

853 

CHZ=CH 

CBM 

854 

XP1=X( 1 ) 

CBM 

855 

1  TL  =  10 

CBM 

856 

!  TS=  1 

CBM 

857 

SNET  =  ( 1  ,+SWELt.  )*SA-SWf  1  L*CPE(  1 ) 

CBM 

858 

1  F  (  1  1-2)  2502, 1420,2501 

CBM 

859 

1920 

DSDTB=QRA/ 12000.0 

CBM 

860 

TAJ  1 )=HE 

CBM 

861 

HE=0, 

CBM 

862 

HW=0 . 0 

CBM 

863 

BR=0 . 0 

CBM 

864 

CMO=OSDTBt( (ROAJ 1 )+R0»( 1 ) )*GAMA+R0C( 1)*0MG) 

CBM 

865 

RA0=0 . 

CBM 

866 

QRA=0 . 

CBM 

867 

QCHEM=0. 

CBM 

868 

QC0NV=0 . 

CBM 

869 

GO  TO  1937 

CBM 

870 

250  1 

1 ABo-90000 . 0 

CBM 

871 

osorB=o. 

CBM 

872 

ERF  X=D(  1 ) 

CBM 

873 

QCHEH^O. 

CBM 

874 

QCONV^O . 

CBM 

875 

GO  TO  2503 

CBM 

876 

2502 

ifjnr.le.O)  co  ;o  ’ r»:*fi 

C 

CH  =  CH/( {  1  , ♦SNET/AHSJRSV) }«»fUX) 

CH/sCH 

CBM 

8/9 

1929 

Of  (CHO-CMf  1  »/(GII»  1  .III  15) 

•  I  oouHl  L 

IFJNf‘S.EQ.1)  Bl  -  III  ♦  GS/(CM*1  .0015) 
ph  i  -2 . paRp^Bf 

CBM 

885 

C 

- BLOWING  l.OIIKf  CT  ION  10  HEATING  RATE 

II  (BP?  AT  .0.0)  GO  IO  1421 
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I F ( PH  I .GT.0.01)  GO  10  1423 
CH=CH*(  1  .-.5*PHI ) 

GO  TO  1426 

1423  IF  (PHI .LT. 150.0)  CH=CH/ ( EXP ( PH  I )-1 .0)*PHI 
IF  (PHI .GE. 150.0)  CH-0 . 05*CH 
GO  TO  1426 

C  -  PUTZ  AND  BARTLETTE  CORRELATION 

1421  IF  (BF.LT. 0.00001)  BF-O. 00001 
IF  (BF.GT. 187.0)  PHI=149.0 

IF  (BF  .LT.  187.0)  PH  I  -  1 . 35*BF#EXP (0 . 14#(8F##1 . 333 ) ) 

IF  (PHI .GT.0.01 )  GO  TO  1422 
CH  =  CH*(  1 .0-0 . 5*PH  I  ) 

GO  TO  1426 

1422  IF  (PHI .LT. 150.0)  CH=CH/(EXP(PMI )-1 .0)*PHI 
IF  (PHI  .GE.  150.0)  011=0. 05*CH 

1426  IF  (IBUG.NE.O)  WRI TT (6,7043)  I  1 ER ,TH ,CH,BF ,PH I 
IF(NF IS.EQ.2)  GO  10  14261 
TEHP9  =  AMAX1 ( TMG( 1,1), TMG( NMGX , 1 ) ) 

I F ( TEMP9 . NE .0 .0 )  CH  =  AMAX1 (CH .GS/TEMP9 ) 

14261  CONTINUE 

IF( IBUG.NE.O)  WR I TE ( 6 ,5602 )  RSV.PHI ,AREA( 1 ) ,TMG( 1,1) 
ERFX=CH*HE+D( 1) 

I B0T=+ 1 
IMG  -  1 

IF (NGS.LE . 1)  GO  10  2511 

C  . . .  INTERPOLATION  FRACTION,  VMR ,  USING  GAS  FLOW 

CALL  LOOK  ( 12 ,GS/ f CH*CMH+1 . OE- 15 ) ,TMG,0,0 ,0,0 ,Y2 ,D2 ,0) 

I MG= I R ( 12) 

VRM=VR 

C  . -  INTERPOLATION  FRACTION,  VRP,  USING  LN  PRESSURE 

2511  CALL  LOOK ( 13,PRES,TPR,0,0,0,0,Y2,D2,0) 

IPR=IR{ 13) 


CBM  888 


CBM  892 
BUG 

CBM  893 


CBM  895 
CBM  896 

CBM  899 
CBM  900 


--  (CCC  COMMENT  ON  12/87) 

IHI ( 14) , ILO( 14)  =  HIGH  AND  LOW  ENTRIES  IN  ABLATION  PART  OF  EST 
AT  PRESSURE  TABLE  NUMBER  I  PR 
NHI ( IMG, IPR) ,NLO( IMG, IPR) 

IHI ( 16) , ILO( 16)  =  HIGH  AND  LOW  ENTRIES  IN  ABLATION  PART  OF  EST 
AT  PRESSURE  TABLE  NUMBER  IPR+1 
NHI ( IMG, IPR+1) ,NLO( IMG, IPR+1) 


I L0( 16)=NL0( IMG, IPR+1) 
IHI ( 16) =NH I ( IMG, IPR+1 ) 

I L  0 ( 14 ) =NLO( IMG, IPR) 

IHI ( 1 4 ) =NH I  I  IMG, IPR) 
VRP=VR 
C 

I  3= ILO( 16) 

! 1= i L0( 14; 

I F ( NGS  .LE  .  1)  GO  TO  2512 
ILO( 1 7 ) =NLO( IMG+1  ,  IPR+1 ) 
IHI ( 171=NHI ( IMG+1  .IPR+1 ) 
I L0( 15j=NL0( IMG+1 , IPR) 
IH! ' 1 5 ) =NH I ( IMG+1 , IPR) 
I4=IL0( 17) 

1 2= I L0( 15) 


IF( IHI  ( 17) 

■  LE  . 

14) 

Go 

TO 

420 

IF (  IHI  ( 15) 

.LE  . 

IP) 

GO 

10 

420 

2512  1 F (  1  H 1 (  14 ) 

.LE  . 

11) 

GO 

10 

420 

CBM  90 1 
CBM  902 

CBM  909 
CBM  905 

CBM  906 
CBM  912 

CBM  903 
CBM  904 
CBM  910 
CBM  911 
CBM  907 
CBM  913 
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IF( IHI ( 16) .LE. 13)  GO  10  420 

JC . . . . . 

c  -  COMPUTE  NON-ABl ATOR  TEMPERATURE 

IF(JTBL.LT.0.0R. IOPIN.EQ.O)  GO  TO  2515 
IF (TABCN.LE.0.0)  GO  TO  2513 
TABC  =  TABCN 
GO  TO  2503 

C - SEARCH  FOR  TABC 

2513  I F (Ml  TER . NE , 1 .AND .MOD (  I  TER  ,H I  TER) .NE. 1)  GO  TO  2503 
CALL  FDTABC(TABC) 

IF( IMSG.GE. 1)  WRITE (6. 2514) I  TER, TABC 

2514  FORMAT ( 1  #***«»*  FOIABC  SEARCH  -  ITER.,  NON-ABLAT.  TEMP.  = 
1  ,I5,F12.5) 

_ GO  TO  2503 _  _ 


2515  TABC  =  TTS(M,IMG,IPR)+VRP*(TTS(l3,IMG,IPR+1)-TTS(n,IMG,IPR)) 

I F ( NGS.LE . 1 )  GO  TO  2503 

TABC  =  TABC+VRM*(TTS( 1 2 , 1 MG+1 , I  PR ) -TTS( IT , IMG, 1  PR) ) 

1  +VRP*(VR*(TTS( 14, IMC+1 ,  IPR+1 )-TTS( I  3, IMG, IPR+1 ) ) 

2  -VRM*(TTS(l2,IMG+l,IPR)-r-3(l1,IMG,IPR))) 

2503  I F ( I  BUG . NE . 0 )  WR I TE (6 , 5601 )  I  1 , 12, 1  3, 14, IMG, IPR,NGS,NR, ITER 

IF (TSAVE.LE.TA8C)  GO  TO  420 

-  ABLATING  SURFACE 

I F ( IAB.GT.O)  GO  TO  423 
CMDl.=TLMC(  I  1  , I  MG , I  PR ) -VRP* ( TLMC(  i  1 ,  IMG,  I  PR) -TLMC( I  3 , IMG, I PR+1 ) ) 
CMD=EXP ( CMDL ) *CH 
I  AB=1 
423  JD=0 


C 

C 

C 


CBM 


CBM 

CBM 


BYPASS  0 1 K I -TO-TABL FS  TRANSITION  OF  IOPTN  =  0 
I F ( IOPTN. LE.O)  GO  TO  509 

I F (FACTOR . EQ. - 1 .0 .AND . TSAVE ,GT . TABC)  GO  TO  505 
IF(MOD( ITER, MITER) .NE. 1)  GO  TO  508 

C  .  SET  TRANSITION  TEMP.  IF  IOPTN  '1'  USEO 

505  IF(FFLAG1 .EQ. ITER)  GO  TO  508 
I F ( IOPTN. EQ. 1)  XTEMP - TCR I T 

C - MERGE2  CALLS  XTEMP  I  ROM  TABLES  BASED  ON  GIVEN  BPRIME. 

F(  IOPTN. EQ. 2)  CAIL  Mt.RGE2(XTEMP  ) 

C . MERGE3  SEARCH  FOR  1 1  MP .  WITH  SMALLEST  DIFFERENCE  IN  SLOPES 

I F ( IOPTN. GE. 3)  CALL  MERGE3(XTEMP) 

FFLAG1= I  TER 


C 

509 

C 

IF  (JTBL.GE.O)  GO  10  4260 

.  INTERPOLATE  LOG  B  PRIMES _ 

cm 

; 

o 

K 

in 

cn 

o 

b- 

o 

< 

u_ 

J 

1TBPF(  1,  IMG,  I  PR)  ,0,Y2(  1)  ,Y2(4)  .3)  CBM 

I RA= I R ( 14 )  CBM 

CALL  LOOK  (  16  ,CMDt.  ,  Tl  MC  (  1 ,  I  MG  >  IPR+1 )  ,TTS(  1  ,  IMG,  IPR+1  )  ,  TCHEM(  1 ,  I  MG,  I  CBM 
IPR+1) ,TBPF( 1 , IMG, IPR+1) ,0,Y2( 13) ,Y2( 16) ,3)  CBM 

I RC= I R ( 16 )  CBM 

I  TOP  =  6 

IF(NGS.LE.I)  GO  TO  4233 
I  TOP  =  12 

CALL  LOOK ( 15, CMDL, FI  MG( 1 , I MG+1 , I  PR ) , TTS( 1 , I MG+1 . I  PR ) ,TCHEM( 1 , 1 MG+1 CBM 
1, I  PR) ,TBPF( 1,1 MG+1, I PK ) , 0 , Y2 ( 7 ) , Y2 ( 10) ,3)  CBM 

!RB=IR( 15)  CBM 


924 


927 

928 


929 

930 

931 

937 

938 


932 

933 

934 
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CALL  LOOK ( 17, CMDL . II  MC( 1 . IKG+1 , 1 PR-H  ) ,TTS( 1 , IMG+1 , 1 PR+ 1 ) ,TCHEM( 1 , 

1  CBM 

939 

IMG+1 ,  IPR+1)  ,TBPF(  1,  IMG+1 , (PR+1) , 0 , Y2 ( 19 ) , Y2( 22 ) , 3 ) 

CBM 

940 

IRD=IR( 17) 

CBM 

941 

4233 

C 

IF( IBUG.NE.O)  WR!T£(6,5601 )  1 AB , 1 RA , 1 RC , 1 RB , 1 RD , 1  MG , 1  PR , NGS 

1 F ( 1  BUG . NE .0)  WR ITE (6 ,5602)  VRP , VRM.CMDL , ( Y2( 1 ) , 1  =  1 ,24) 

DO  4232  1=1 , ITOP 

BUG 

BUG 

4232 

Y2( 1 )=Y2( 1 )+VRP*(Y2( l+12)-Y2(  1 ) ) 

IF(NBPF.LE.I)  GO  TO  4237 

IF (VRP .LE. 1 .0)  GO  TO  4234 

Y2 ( 3 ) =Y2( 15 ) 

1 F ( NGS . LE . 1 )  GO  TO  4231 

CBM 

943 

Y2 ( 9 ) =Y2 (21) 

CBM 

947 

4234 

GO  TO  4237 

IF(VRP.GE.O.O)  GO  TO  4237 

Y2(3)=(Y2(3)-Y2( 15)*VRP)/( 1 .-VRP) 

IF(NGS.LE.I)  GO  TO  4231 

CBM 

948 

4237 

Y2 ( 9 ) = ( Y2 ( 9 ) "Y2 (21) *VRP ) / ( 1 . -VRP ) 

IF(NGS.LE.I)  GO  TO  4231 

00  426  1=1 ,6 

CBM 

951 

426 

4231 

Y2( 1 ) =Y2 ( 1 ) +VRM* ( Y2 ( l+6)-Y2(  1)) 

IF ( Y2 ( 1 ) . GT .0 .0)  GO  TO  4261 

1 TL= 1 TS 

CBM 

954 

GO  TO  4356 

CBM 

957 

c 

4260  CONTINUE 


C  ---  IF  IB0T=+1,  0 1 K I  RETURNS  Y2(4)=-1.0  ONLY 

_ CALL  .D.IK.I  (PRES.CMOL.cn. Y2.TL.8PLH.IB0T.JTBU . . 

C  — -  FFLAG  =  ITERATION  AT  WHICH  FACTOR  IS  FIRST  COMPUTED  (OR  UPDATED) 
C  IF ( IMSG.EQ.2)  WRITE(6,1510) ITER, MITER , FFLAG, FACTOR , I OPTN 
C1510  FORMAT('  *»»*»***  I 1ER, MITER, FFLAG, FACTOR, IOPTN,  =  ', 

C  1  ,/,  10X,3 I  5 ,F 10 . 5 , 13) 

I F ( IOPTN. LE.O)  GO  TO  405 
I F ( FACTOR . EQ . - 1 . 0 )  FT  LAG  =  I  TER 
I F ( IBOT.GT.O)  GO  TO  405 
If (MITER.EQ. 1 .OR.FFl  AG.EQ. ITER)  GO  TO  91 
IF(MOD( ITER, MITER) ,NK 1 )  GO  TO  506 
C  ---  COMPUTE  FACTOR  TO  MERGE  CURVES 

91  CALL  MERGER ( FACTOR, X TEMP) 

C  ---  ADJUST  BPRIME  BY  FACIOR 

506  CCC=EXP ( CMDL ) 

CMDL=AL0G(AMAX1 ( FACTOR *CCC, 1 .0E-5) ) 

CMDLP=EXP ( CMDL ) 

IF (MITER. EQ.1. OR. FFLAG. EQ. ITER)  GO  TO  92 
I F ( MOD ( ITER, MITER) .Nt . 1 )  GO  TO  405 

92  I F ( IMSG.GE . 1 )  WR HE ( 6 , 100) TH , I  TER ,XTEMP ,TS .FACTOR ,CCC,CMDLP 

100  FORMAT ( '  ***1#*»  MERGER  -  TIME,  ITER,  XTEMP ,  TWALL ,  ' 

T  FACTOR.  BP,  BP "FACTOR  =  ' ,/,  17X,F9.4, 15,2F12.5,3F9.5) 

405  JD=1 

IF  (Y?(4) .LE.O.O)  GO  TO  4359 
C  ---  SECOND  CALL  ON  OIKI  IF  Y2(4).Lt.O 
GO  TO  4261 
4359  CMDL=BPLH 
IB0T=-1 
Y2 ( 1 ) =TS 

_ £ALL.mi.imSj,G.MOL  £  H,Y2,TL.BPLH.IB0T,JTBU _ 

C  ---  USE  FACTOR  FROM  FIRST  CALL  TO  D IK  I  TO  MERGE  CURVES 
I F ( IOPTN. LE.O)  GO  10  4261 

C - ADJUST  BPRIME  BY  FACIOR _ _  _ _ 
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CCC=EXP ( CMOL ) 

CMDL=AL0G(AMAX1(FAC10R*CCC,1.0E-5) ) 
CM0LP=EXP ( CMDL ) 

IF (MITER.EQ. 1 .OR.FFLAG.EQ. ITER)  GO  TO  93 
I F (MOD( ITER .MITER) .  NE . 1)  GO  TO  4261 


93  I F ( IMSG.GE . 1 )  WR I TE ( 6 ,99) TH , I  TER ,XTEMP , TS, FACTOR ,CCC,CMDLP 
99  FORMAT {'  ***2***  MERGER  -  TIME,  ITER,  XTEMP ,  TWALL , 
T  FACTOR,  BP,  BP*FACTOR  =  ‘ ,/, 1 7X,F9 .4 , 1 5 ,2F 12 . 5 , 3F9 .5 ) 


1  4261 

CONTINUE  . 

- ICBM 

958 

C  ---• 

--  LOOK  UP  EMMISSIVITY  OF  SURFACE  MATERIAL 

CALL  LOOK (4 , Y2( 1 ) ,TT2( 1 ,2) ,TEP( 1 ,2) ,0 ,0,0 ,EM 1 V.DMIV, 1 } 

CBM 

959 

IE (MATL( 1 ) . EQ.2)  CO  TO  427 

CALL  LOOK { 3 , Y2( 1) ,TT2( 1 ,1) ,TEP(1,1),0,0,0,Y3,D3,1) 

EM  1 V=EM 1 V+XP 1#( Y3 ( 1 ) -EM  IV) 

CBM 

962 

DM  IV  =DMIV+XP1*(D3( 1 ) -DM  IV) 

CBM 

963 

427 

TSSQ=Y2 ( 1 )*Y2( 1 ) 

CBM 

964 

TS=Y2( 1) 

CBM 

965 

-  COMPUTE  DEPARTURE  FROM  ZERO  OF  SURFACE  ENERGY  BALANCE 
RAD  =  RADIATION  AWAY  FROM  SURFACE 
QRA  =  INCIDENT  RADIATION 

ERR  =  DEPARTURE  FROM  ZERO  OF  SURFACE  ENERGY  BALANCE 
DERR  =  RATE  OF  ERR  PER  LN(BPRIME)  FOR  ABLATING  SURFACE  OR 
RATE  OF  ERR  PER  TWALL  FOR  NCN-ABLAT I NG  SURFACE. 
ERRC  =  CORRECTION  TO  LN(BPRIME) 


- BLOWNG-Ef FEGT-0N--RABLAT-FV6  -HEAT  ■  TRANSFER 

DPI  -  ’OEMS  I  TY  AT-  At-T-I TUBE- Af-T-PB - 

BLOW  »-P6GG£NT  ■  BL-OVWIC - 

■6L6FA0  -  PLOW  rAGTOR-ON  RADIATION  H,T,t  QRA. 


-  I F  (■  I  BLOP'T-.  L E  .  0  )■■  GO  1-0 ■  »000 - 

-  GALL  ATH(AFTFS-,PUMPt-&UMT)POMW, PUMA, OBI) 

-OLOW-OHO/(VCLFS»OD1  )* 100,0 

-4F(  IBLOPT.CQ:  H-GO  1-0  9100 

C  - - U6  I  MG  •CARBON  ABLA+ION  OPCOieO' 

--tftBLew.GT.20.0)  - - BLOFAC~C  .60 — 

- 1  T  -f-BLOW.  GT-;  10  :  0  .-AND  .  BLOWvLErPO .  0 )  BLOF-AG-O:  70  0.005»QLOW 

— IF (BLGW.GT ,  5,O.ANO,3LOW,LE ■ 10.0)  BLOrAG-0.05  O.Oee*OLOVF 
-  — IF(6L0W .  GE  .  G.O.AND.BLOW-.-L-E.-  9  ;0)  8L0F AC™ 1 .00-0 ,050»8LGW 

C  - -  U6FN0-AIR  ADLAT  ION  0PC0»€9 

-9466 - hFf6L-6WvGT:46-.0) - BLOFAG-0 .83 - 

I  F  ( DL0W;6-T  .20.0.  AND  ; BLOW: L-Et^O  vO)  '6L0f-AC«0.9 1  ■  0.60P*DLOW 
-IF’(BL6W.  GTi  10. 0.  ANIL. BLOW;  LE-rLMT.O)  BLOFAC-O :93-0 .003«QLOW 
— IF-(BLQW^CE,  '0-,0,-ANU,BLOWtL4-t-TL>.0')  BLOFAC^  T .  00-0 , 0  IO*BLOW 

C . 

•9196 . Ff-(  IDLOPT.GC  :  1  .AND.  IHSC.CE ,3) 

-1 - WB  LTE4  6  7  9300  )  44  E  «  ,  CMOu  V&L-F  S  ,  PD  1 ,  BLOW ,  Bl  OF  AC - 

■9300  FORMAT(  '  ...ftinunuttt  n  LR  rCMP  ,  VSLFST&fcNS.,  BLOW-, SLOE  AG  =  ■  i  , - 

-4 - /;■■'  ■******■»■ ..'., 

.■501)0-  CONTINUE- _ _ _ _ 

C  .  QRA  CHANGED  TO  QRA*BLOFAC  BELOW  BY  CCC  1/88 


RAO-SIG»EMIV»TSSQ»TSSq»VF  CBM  966 

ERR=CH»Y2(2)+£MIV»QRAHBI0FACt-RAD-Bm»TS+ERFX 

DERR=CHHY2(5)+(  (QRAIbI  OFA^hmO/EM  I V)  *DM  I V-4  . /TS*RAD-B  (  1 )  )*Y2{4)  CBM  968 

ERRC=ERR/DERR  CBM  969 

V  I  TER (ITS) =CMOL  CBM  970 

E I  TER (ITS) =ERR  CBM  971 

IE (ERRC. EQ. 0.0)  GO  TO  4355 
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IF(ABSIERRC) .LT. 1.0E-6)  ERRC  =  ERRC/ABS( ERRC)*1 .OE-6 
U355  IF  ( IBOT.LT. 0)  GO  TO  4357 
CMDL  =  CMDL  -  ERRC 
GO  TO  4358 

4357  TS  =  TS-ERRC 
Y2 ( 1 )  =  TS 

4358  I F ( IBUG.NE.O)  WR I TE { 6 .5602 )  (Y2( I ) , I =1 ,6) 

IF  (JD.EQ.1)  GO  TO  4367 
CMMI=-1.E+30 

CMMA=+1 . E+30 

I F ( IL0( 14) .GE. IRA)  GO  TO  4363 
I F ( ILO( 16) .GE. IRC)  GO  TO  4363 
IF(NGS.LE.I)  GO  TO  4270 
IF ( ILO( 17) .GE. IRD)  GO  TO  4363 
IF ( I LO ( 15) .GE. IRB)  GO  TO  4363 

CMMI  =  AMAX1(TLMC( IRO, IMG+1, IPR+1 )+TLMC( IRO-1, IMG+1 , IPR+1) , 

1  TLMC( IRB, IMG+1 , IPR)  +  TLMC( I RB- 1 , I MG+1 , 1  PR ) J 

4270  CMMI  =  AMAX1(TLMC( IRA. IMG, IPR)+TLMC( IRA-1,  IMG. IPR) .CMMI , 

1  TLMC( IRC, I  MG, IPR+1 )+TLMC( IRC-1 , IMG, IPR+1 ))/2.0 

CMDL  =AMAX 1 ( CMDL , CMM I ) 

4363  I F ( I H  I  ( 14) .L£ . I RA+ 1 )  GO  TO  4366 
I F ( I H I ( 16) .L£ . I RC+1 )  GO  TO  4366 
IF(NGS.LE.I)  GO  TO  4275 
I F ( I H I ( 17) .LE . IRD+1 )  GO  TO  4366 
I F ( I H I ( 15 ) .LE , IRB+1 )  GO  TO  4366 

CMMA  =  AMIN1 (TLMC( IRD+1 , IMG+1 , IPR+1 )  +  TLMC( IRD+2, IMG+1 , IPR+1 ) , 
1  TLMC( IRB+1, IMG+1, IPR)  +  TLMC( I RB+2 , I MG+1 , I  PR ) ) 

4275  CMMA  =  AMIN1 (CMMA, TLMC( IRC+2, IMG, IPR+1 )+TLMC( IRC+1 , IMG, IPR+1 ) , 

1  TLMC( IRA+1 , IMG, IPR)+TLMC( IRA+2, IMG, IPR) )/2.0 

CMDL  =AM I N 1 ( CMDL , CMMA ) 

IF( ITS-ITL-1)  4366,4351,4352 

4351  ERRS=ERR 
CMDL=CMMA 
GO  TO  4367 

4352  I F ( ERR+ERRS )  4354,4367,4353 

4353  CMDL=CMMA 
GO  TO  4367 

4354  I TL=55 

IF(ERRC.EQ.O.O)  CMDL  =  CMMI 
GO  TO  4367 

4366  I F ( ITS.NE. ITL)  GO  TO  4367 

4356  CMDL  =  AMIN1 (TLMC( I  1 , IMG, I  PR) ,TLMC( I  3 , IMG, IPR  +  1 ) ) 

I F ( NGS . LE . 1 )  GO  TO  4367 

CMDL  =  AMIN1(CMDL,TLMC( 12, IMG+1, IPR), TLMC(I4, IMG+1, IPR+1)) 

4367  IF  (CMDL .GT.  10.0)  CMDL=10.0 
CMD=EXP ( CMDL ) +CH+CMH 

IF ( IBUG.NE.O)  WRITE (6,5602)  TH ,DTH,VRM,ERFX,EMI V,DMIV,RAD,B(  1 ) , 
1  CH, PHI ,D(1) , HE, XP1 .QRA.CMOL, CMMA, ERR, DERR, ERRC 
IF  (ITS.EQ.31)  TOLER  =  2.0*T0LER 
IF  ( I TS . LE . 30)  GO  TO  415 
IF  ( IBOT.LT. 0)  GO  TO  415 
DUM=E I  TER ( I TS) -E I  TER { I TS- 1 ) 

C  .  IF  SUCCESSIVE  SURF.  BALANCE  ERRORS  ARE  SAME 

IF  (DUM.EQ.O.O)  GO  TO  4376 

CMDL  =  V I  TER ( I TS- 1 )  -  E I  TER ( I TS- 1 ) *( V I  TER ( I TS) -VI TER( I TS- 1 ) ) 

1  /DUM 

415  I F { ITS.EQ.40)  TOLER  =  2.0*T0LER 
IF  ( I TS.EQ.50)  GO  TO  4376 
IF  ( I TS.LT.49)  GO  TO  4375 
XMIN  =  1 .OE+6 


BUG 

CBM  973 
CBM  974 


CBM  985 


CBM  996 
CBM  997 
CBM  998 
CBM  999 
CBM  1000 
CBM  1001 
CBM  1002 
CBM  1003 
CBM  1004 

CBM  1007 


CBM  1013 

BUG 

BUG 
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DO  4374  15  =  1,49 

I F ( ABS ( E I  TER ( 1 5 ) ) . 0 1 . XM I N )  GO  TO  4374 
CMOL  =  V I  TER ( 15) 

XM I N  =  ABS(E I  TER {  15)  ) 

4374  CONTINUE 

4375  ITS  =  ITS+1 

I F ( ABS( ERR ) -TOLER )  43  12, 4372,423 

4376  WR I TE (6,5604 )  TH.ERR 

5604  FORMAT ( 37H  NO  CONV  IN  SURF  BAL ,  TIME  &  ERR  ARE  .2F14.5  ) 
GO  TO  4372 


CBM 

CBM 


C 

I AB=0  CBM 

CMD-0.0  CBM 

430  I F ( I  I . EQ. 3 )  GO  TO  433 
ILO( 18)= 1 

IHI ( 18)=KHI ( IMG, IPR)  CBM 

IL0(20)=1 

IHI (20)=KHI < IMG, IPR+1 )  CBM 

CALL  LOOK  ( 18,TS,TTS(  I , IMG, IPR) ,TCHEM( 1 , IMG, IPR) ,0 ,0 ,0 , Y2(  1 )  ,Y2( 2 ) CBM 
1,1)  CBM 

CALL  LOOK  (20, TS,  TTS( 1 , IMG, IPR+1) ,TCHEM( 1 , IMG, IPR+1) ,0,0,0, Y2(5)  ,  CBM 
1Y2 ( 6 )  ,  1 )  CBM 

IF(NGS.LE.I)  GO  TO  4322 

I L  0 ( 19)  =  1  CBM 

IHI ( 19 ) =KH I ( IMG+1 , IPR)  CBM 

I LO ( 2 1 )=1  CBM 

IHI (21 )=KHI ( IMG+1 , IPR+1 )  CBM 

CALL  LOOK  (19, TS,TTS(1, IMG+1, IPR), TCHEM( 1 , IMG+1, IPR), 0,0,0,Y2(3),  CBM 
1 Y2 ( 4 ) , 1 )  CBM 

CALL  LOOK  (21, TS, TTS( 1 , IMG+1, IPR+1) ,TCHEM( 1, IMG+1, IPR+1) .0,0,0,  CBM 
1 Y2 ( 7 ) , Y2 ( 8 ) ,  1 )  CBM 

DO  4321  1=1,2 

4321  Y2 ( I ) =Y2 ( I ) +VRM* ( Y2 ( I +2 ) -Y2 ( I ) ) 

DO  4423  1=5.6 

4423  Y2 ( I )  =  Y2( I )  +VRM“ ( Y2( I +2) -Y2 ( I ) ) 

4322  IF ( I  BUG . NE .0 )  WR I  It ( 6 ,5601 )  IAB,IMG,IPR  BUG 

IF ( IBUG.NE.O)  WR I U ( 6 ,5602 )  ( Y2 ( I ) , I  =  1 ,8) , TS.VRM, VRP  BUG 

DO  4323  1=1,2 

4323  Y2 ( I) =Y2 l I ) +VRP w ( Y2( I +4 ) - Y2 ( I ) )  _ 

C - Y2( 1 )  =  -HW  SI NCF  01  D  Y2 ( 1 ) =1 CHEM=- ( 1 +B ' ) *HW+B ' C«HC=-HW 

I F ( IMSG.GE.3)  WR I TC ( 6 ,4  330) I  TER  , PRES , TS , Y2 ( 1 ) 

4.3.30  FORMAT!'  »*»*»**  ITIR  PRFS  TS  Y?  I  IT  =  1  IS  3F1S  SI 


c 


C 

C  -  NON-ABI  A I ING  SURFACE 

C 

...  420  TS=TSAVL _ _ _ 

C  -----  FLAG  TO  INDICATE  NFCD  FOR  MERGER  SUBR  WHEN 
C  GOING  FROM  NON-ABLATOR  TO  ABLATOR  USING  DIKI 

FACT0R=-1 .0 


BL0W=0 . 0 

.BLflf  AGr.  1 .  Q 


1017 

1018 


1019 

1020 


1023 

1032 
1026 

1027 

1035 

1036 

1024 

1025 

1033 

1034 

1028 
1029 

1037 

1038 


I  F  (  IBUG.NE.O)  WR I U (6,5602)  (Y2{ I ) , I  =  1 ,2)  BUG 

433  CALL  LOOK  (4, TS, T T2( 1 ,2)  ,TEP( 1 ,2) ,0,0,0, EMIV.OMIV, 1)  CBM  1043 

I F ( MATL ( 1) .EQ.2)  GO  10  442 

CALL  LOOK  (3,TS,TT?(  1.1)  ,TEP ( 1,1), 0,0,0, Y3 , 03,1)  C 

EM  I V=EM I V+XP 1* ( Y3 ( 1)-tMIV)  CBM1046 

DM  1 V  =DMIV+XP1*(D3( 1 J-DMIV) 

442  TSSQ=TS»TS  CBM  1048 

I F ( I  I . NE . 3 )  GO  TO  4422 
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IF  (EMIV.EQ.0.0)  EMIV'-I.O 

4422  RAO=SIG*EMIV*TSSQ*TSSQ*VF  CBM  1052 

ERR=CH*Y2( 1 )+EMIV*QRA-RAD-B( 1  )*TS+ERFX 

QERR=CH*Y2( 2)+( (QRA-K AO/EM  IV) #DM I V-4 . /TS*RAD-B ( 1 ) )  CBM  1054 

ERRC=ERR/DERR  CBM  1055 

VI  TER { I TS) =TS  CBM  1056 

E I  TER ( ITS) =ERR  CBM  1057 

TS=TS-ERRC  CBM  1058 

I F ( I  I . GE .3)  GO  TO  4507 
TSM I =- 1 . £+30 

TSMA=+1 . E+30  CBM  1061 

I RA= I R ( 18)  CBM  1062 

I RB= I R ( 19)  CBM  1063 

I RC= I R ( 20 )  CBM  1064 

I RD= I R ( 2 1 )  CBM  1065 


I r ( IL0( 18) .GE. IRA)  GO  TO  4501 
I F ( ILO(20) .GE. IRC)  GO  TO  4501 
IF (NGS.LE. 1 )  GO  TO  4503 
I F ( I L0(2 1 ) . GE . I RD)  GO  TO  4501 
I F ( ILO(19) .GE. IRB)  GO  TO  4501 

TSM I  =  AMAX1 ( TTS ( I RO , I MG+1 ,IPR+1)+TTS( IRD-1,1 MG+1 ,  I PR  +  1 ) , 

1  TTS( IRB, IMG+1 , IPR)  +  TTS ( I RB- 1 , I MG+1 , I  PR )  ) 

4503  TSM I  =  AMAX1(TSMI ,TTS( IRA, IMG, IPR)  +  TTS ( IRA-1 , IMG, IPR) , 

1  TTS( IRC, IMG, IPR+1 )+TTS( IRC- 1 , IMG, IPR+1 )  J/2.0 

T  S=AMAX 1 ( TS , TSM I )  CBM  1075 

4501  I F ( IHI ( 18) .LE. IRA+1 )  GO  TO  4507 
IF( IHI (20) .LE. IRC+1 )  GO  TO  4507 
IF  (NGS.LE, 1 )G0  TO  4510 
IF( IHI (21) .LE. IRD+1 )  GO  TO  4507 
IF( IHI ( 19) .LE. IRB+1 )  GO  TO  4507 

TSMA  =  AMIN1(TTS( IRD+1 , IMG+1 , I PR+ 1 ) +1 TS ( IRO+2, IMG+1 , IPR  +  1 ) , 

1  TTS( IRB+1 , IMG+1 , IPR)  +  TTS ( I RB+2 , I MG+ 1 , I  PR ) ) 

4510  TSMA  =  AMI N1 (TSMA, T TS (  I RA+ 1 , IMG, I  PR  )  +TTS  ( I RA+2 , IMG, IPR ) , 

1  TTS( IRC+1 , IMG, IPR+1 )+TTS( IRC+2, IMG, IPR+1)  )/2.0 


TS=AM I N 1 ( TS , TSMA)  CBM  1085 

4507  CONTINUE  CBM  1086 

IF  (IBUG.EQ.O)  GO  TO  104 

WRI TF (6 .5601  )  IRA, IRB, IRC, IRO, IAB 

WRI IE (6 ,5602)  TSMI  , TSMA, TS.ERRC, DERR, ERR, 

1  VI TER( ITS)  BUG 

WRITf (6.5602)  TH,01H,VRM,ERFX,EMIV,DMIV.RAD,B( 1 ) ,  BUG 
1  CH.PHI ,0( 1) ,  HE  ,  XP 1 ,QRA, CMOL  BUG 

104  I F ( ITS.GT.50)  GO  10  998 
ITS  -  ITS  +1 

I F ( ABS ( ERR ) . GT .  1.0)  GO  TO  430 

. .  POST  ITERATION  CBM  1096 


I F (  I  I  . GT  .2)  GO  TO  1437 
Y2(2)  =  Y2( 1 ) 

4372  QCHEM=Y2 ( 2 )  CBM  1099 

IF  (  ITS.I.T.30)  GO  TO  1438 
WR  I  TE ( 6 , 583  )  TOLER, ERR. TM 
I F ( I  SEN (  1) . NE .0 )  GO  TO  4373 
QCONV  =0.0 
GO  TO  1439 

4373  CALL  OGLE ( 1 , TS , QCONV , I  SEN (  I  PR )  ,  I TSEN (  1 , I  PR ) , THSEN ( 1 , I  PR ) , TCPSEN( 1 ,CBM  1103 

1  I  PR  )  )  CBM  1104 

CALL  OCL  £  (  1  ,  T  S ,  QQ  ,  ISEN(  IPR+1)  ,TTSEN(  1,1  PR-*- 1 )  ,THSEN{  1  ,  I PR+ 1 )  ,TCPC8M  1106 
1SEN(  1 , IPR+1  )  )  CBM  1107 
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QCONV=QCONV+VRP* ( QQ-QCONV) 

1439  QCHEM= ( QCHEM+QCONV ) #CH 
HW=QCONV 

QCONV=CH* (HE - QCONV ) 

DSDTB=CMD/RHO ( 2 ) 

c  -  EROSION  LUNDELL  &  OICKEY  DATA  BASED  ON  JANAF  SPECIES 

CMDM  =0.0 
DSDTM  =0.0 

IF( IEROS.EQ.O)  CO  TO  441 
I F ( TS . L  T . 7245 . 0 . AND . TS . GT . 4600 . 0 ) 

1  CMDM  =  CMD*(564. 59/(7521. O-TSJ-O. 15523) 

IF(TS.GT. 7245.0)  CMDM  =  1.89*CMD 
DSDTM  =  CMDM/RHO( 2 ) 

441  DSDTT  =  DSDTB  ♦  DSDTM 
IF(NBPF.LE.O)  GO  TO  1437 
IF ( IAB.GT  .0)  CMFL  =  EXP ( Y2( 3 ) ) *CH*CMH 
1437  RO( 1 ) =R0N ( 1 ) 

BR=CH/(CHZ+1 .OE-15) 

QRP=EMI V#QRA*BLOFAC 
QCOND=-D( 1)+B(1)*TA( 1) 

TEMP  =  DTH*ASU/AREA( 1 ) 

C  -  TIME  INTEGRATED  VALUES 

QCONVT  =  QCONVT  +  QCONV*TEMP 

QCHEMT  =  QCHEMT  +  qCHEM»TEMP 

QCONDT  =  QCONDT  ♦  QCOND*TEMP 

QRPT  =  QRPT  ♦  QRP*TEMP 

RADT  =  RADT  +  RAD*TEMP 

SUMQE  =  SUMQE  +  DTH« (qCONV+QRP-RAO+QCHEM-QCOND) 

C  -  RECOMPUTE  TOLERANCE 

TOLER  =AMAX1 (0 .25 .AM  I N1 ( 1 .0 ,ABS( 0.01 "QCONV) ) ) 

C 

DEDT=RON ( 1 ) *CP ( 1 ) * ( TS-TSAVE )*DEL( 1 J/D1H 
OTDT ( 1 )  =  ( TS-TSAVE )/DTH 
DO  95  1=2, NL 
R0( I )  =  R0N( I ) 

TEMP  =(D( I  )-A( I  )»TA( 1-1) )/B( I  ) 

DEDT=DEDT+RON( I )*CP( I )*( TE MP- TA( I ) ) -DEL (  I  )*RR( I J/DTH 
DTDT ( I )  =  ( TEMP-TA( I ) )/OTH 
95  TA( I )=TEMP 

IF (NUMN.LT.NBM)  GO  TO  97 
K  =  NL 

TA(NBM-I)  =  TA(NL) 

DO  90  I  =  NBM.NUMN 
K  =  K+1 

98  TA( I )  =  (D(K)-A(K)*TA{ 1-1) )/B(K) 

97  OEDTT  =OEDT  T+OEOT*DTH/AREA( 1  )*ASU 

IF ( IBUG.NE .0)  WR I TE ( 6 ,5602)  ( TA( I )  ,  I  ~  1 ,NUMN) 

IF (NDBU.EQ.O)  GO  TO  756 
LL  =  NF I (  1 ) 

LU=NLA( NOBU) 

DO  757  I  =1  L  ,LU 
757  R0( I ) =RON( I ) 

SHRINK  (ANO  OROP )  OF  LAST  ABLATING  NODE 

756  IF (DEL ( NL ) .GT .DELM)  CO  TO  150 
DRLP=DEl ( NL ) *R0( NL ) *RR( NL ) 

DRLCP  =  DRL  P*CP ( NL  ) 

NL  =NL-  1 

LCAP(NL)  =LGAP(NL*1) 


CBM  1108 

CBM  1110 
CBM  1111 
CBM  1112 


CBM  1116 

CBM  1118 
CBM  1119 


CBM  1125 
CBM  1126 

CBM  1127 
CBM  1128 
CBM  1129 
CBM  1130 

CBM  1131 


CBM  1134 
CBM  1135 
CBM  1136 
CBM  1137 
CBM  1138 
BUC 


CBM  1141 
CBM  1142 
CBM  1143 
CBM  1146 
CBM  1147 
CBH  1148 


CBM  115? 
CBM  1153 
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GAP ( NL )  =  GAP (NL  +  1 ) 

RC(NL ) =RC( NL+1 ) 

DRL=OEL ( NL ) *RO( NL ) *RR ( NL ) 

DRLC=DRL  #CP ( NL ) 

HAPHB=DRL*H ( NL ) +DRLP*H (NL+1 ) 

TOP1=DRL+DRLP 

T0P2=DRLC+DRLCP 

TOP3=DRLC*TA( NL )  +DRLCP*TA(NL+1 ) 

VOL=DEL ( NL ) #RR{ NL ) +OEL ( NL  +  1 ) #RR( NL  +  1 ) 

DEL ( NL ) =DEL ( NL ) +OEL ( NL+1 ) 

RA ( NL ) =RA ( NL ) +6 . *DEL ( NL+ 1 ) 

RO( NL )=TOP 1/VOL 

CP(NL)=T0P2/T0P1 

TA( NL )=TOP3/TOP2 

H ( NL ) =HAPHB/TOP 1 

OELR=DEL (NL+1 )#RR(NL+1 )  /VOL 

CZ=1 .0-DELR 

DZ=0 . 0 

GZ=CZ 

NZ=JK*NL-JFH 

N=NZ-JF+1 

K=N 

FZ=DELR 
EZ=GZ 
GO  TO  179 

172  DZ=OZ+1 .0 

173  FZ=DZ-CZ 
IF(K.EQ.NZ)  GZ=DELR 
K=K+ 1 

CZ=CZ+GZ 

EZ=CZ-DZ 

IF (EZ.LT.O.O)  GO  TO  178 
ROA( N ) =ROA{ N ) +FZ*ROA( K ) 

ROB ( N ) =ROD ( N ) +FZ*ROB ( K ) 

ROC( N ) =ROC ( N ) +FZ*ROC( K ) 

IF(N.EQ.NZ)  GO  TO  150 
N=N+  1 

179  ROA(N)=ROA(K)*EZ 
ROB ( N ) =R08 ( K ) *EZ 
ROC(N)=ROC(K)*EZ 
GO  TO  172 

178  ROA( N ) =ROA ( N ) +ROA( K ) *GZ 
ROB( N ) =ROB ( N ) +ROB( K ) *GZ 
ROC( N ) =ROC( N ) +ROC( K ) *GZ 
GO  TO  173 

150  go  to  mo 

998  WRITE  (KOUT.529) 

WRI TE (KOUT.582) (VI  TER ( I ) , E I TFR ( I ) J -  1 . 5  1  ) 

WR I TE ( KOUT ,582 )  TH ,DTH . VRM , ERFX, TABC , EH  I  V .DM  I V .RAO ,B ( 1) .CH.PMI 
1  D(  1)  ,HE  ,XP1  #QRA,Y2(  U  .V2(2)  ,Y2(3)  ,Y2(i4) 

TH=THF IN 
CO  TO  JOOO 
1  RETURN 
ENO 


CBM 

1154 

CBM 

1155 

CBM 

1156 

CBM 

1157 

CBM 

1158 

CBM 

1159 

CBM 

1160 

CBM 

1161 

CBM 

1162 

CBM 

1163 

CBM 

1164 

CBM 

1165 

CBM 

1166 

CBM 

1167 

CBM 

1168 

CBM 

1169 

CBM 

1170 

CBM 

1171 

CBM 

1172 

CBM 

1173 

CBM 

1174 

CBM 

1175 

CBM 

1176 

CBM 

1177 

CBM 

1178 

CBM 

1179 

CBM 

1183 

CBM 

1187 

CBM 

1188 

CBM 

1191 

CBM 

1192 

CBM 

1193 

CBM 

1194 

CBM 

1195 

CBM 

1196 

CBM 

1197 

CBM 

1198 

CBM 

1199 

CBM 

1090 

CBM 

1091 

CBM 

1092 

CBM 

1093 

CBM 

1094 

CBM 

1095 

CBM 

1202 
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DSNAME  =  1 BBE . CCC 1 . SOURCE . CHA6 . PDS ( F  D 1 ABC ) '  VOL=SER=D8D080 

DCB=(RECFM=FB,LRECL=80,BLKSIZE=6160)  01/13/88  013  14:11:54 

SUBROUTINE  FDTABC(TABC) 

CBM  2 

SUBROUTINE  TO  COMPUTE  THE  TEMPERATURE  FOR  THE  MATERIAL  TO  ABLATE  CBM  3 

USING  THE  HUNTER  FORMUILAT ION  REWRITTEN  TO  GIVE  A  BPRIME  AS  A  CBM  4 

FUNCTION  OF  TEMPERATURE. 

INPUT:  PRES,  RUCH  -  OUTPUT :TABC 

COMMON/OTPT/CPE (6) , FMO(201 ) ,DEP(20, 10) ,CNC( 10 1 ) ,CN{ 101) ,Y1(4) , 

1  CNO(  101 )  ,TO(20)  ,RO(  10  t )  ,N IS0( 20)  ,BR,CH,GS,SA,TB,TT,ASU,CMD,CMT, 

2  I TS ,QRP ,RAD ,RAT ( 10 1 ) .RSU.CMOM ,CMMT,DC0T,DE0T ,0  IDT ,DPDT , ITER ,XSCT , 

3  PGPU,PRES,QRPT,RADT,SNET,DECOM,DEDTT,DSDTB,PGPUT,qCHEM,qCOND, 

4  qCONV.qLOSS.SDNET,  SUMqE , THPRT,TSAVE ,VELFS,0EC0MT , 

5  PRSATM,qCHEMT .qCONDT ,qCONVT.qLOSST,KK ,RR( 101 ) ,DM0G( 101 ) , 

6  R0N( 101 ) ,R0T ( 101 ) ,ONCP(6) ,0R0T(6) ,01(4) ,FA,FB ,FC,DTH,DTHC,DS I , 

7  DTA , GSM , COLD ,GSMS . GSMT , GSM2T ,DSDT , POLO ,DUM, AF TF S ,DSDTT , 

8  TEMP  ,BF  ,LL  ,LL',HE  ,HW 

COMMON/OPT ION/TCR I T  ,BPCR I T,TABCN, I0PTN , I MSG, Ml  TER 
COMMON/D  I K I BK/E  1 ,  K0 1 . E  2 , K02 , MWC , MWO , C0N02 
DIMENSION  TWL ( 50 ) 

REAL  K1,K2,K01,K02,MWC.MWO 

-  R  IN  ATM-CM**3/GM/K 

-  PRES  IN  LN(aTM) 

-  CH  (RUCH)  IN  LBM/FT»*2/S 

-  GSTAR  IN  G/CM**2/S 

-  TW  IN  K 

-  El  IN  K 

-  KOI  IN  CM/S 

BP=0. 00001 
R  =  2.83317 
PW=EXP(PRES) 

GSTAR=0.489*CH 
BE=MWC/MW0*C0N02 

TERM  =  K01*PW/R/GSTAR»fALOG(1.0*BE)/AL0G(1.Q*BP)-1.0) 

TW=2000.0/1 .8 
T0LER=0 . 1 

.  ITERATE  TO  SOLVE  1  OR  TV 

I C0UNT=0 

50  I  COUNT  =  I  COUNT-*- 1 
TWL ( ICOUNT)=TW 
TWLAST=TW 

TW  =  E 1/AL0G{ TERH/TW) 

TABC  =  TW*1 .8 

I F ( IMSG.GE.2)  WRITE (6, 100) I  COUNT, TABC 
100  FORMAT!’  **FDT**  FBTA8C  SUB- 1 TERAT I  ON  HO.  ’,13, 

1  ’ ,  TABC  =  ’  ,F12.5) 

I F ( I  COUNT . LT . 15 )  GO  10  200 
WR  I TE ( 6  . 150 ) ( TWt  ( I ) , 1=1, ! COUNT) 

150  FORMAT!'  **FDT*»  WARNING:  FOTABC  MAX.  ITERATIONS  EXCEEDED' 

1  ,'****•'  ,/ ,  15E  12.5) 

RE  TURN 

200  IF (ABS(TW-TWLAST) .Cl . IOLER)  GO  TO  50 
RETURN 

END  CBM  1202 
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DSNAME  =  'BBE.CCC1 .SOURCI .CMAS.PDSf INPOUT4) '  VOL=SER=D8D08O 

OCB= (R£CFM=FB  ,LRECL=80  ,()l  KS  I  /f. -6 160 )  01/26/88  026  15:31:53 

SUBROUTINE  INPOUI 


CHANGES  TO  PROGRAM: 

(1/16/87)  SIZE  OF  TTIt ,  THE  ,TQR  ,  TCM ,  TBRP  ,  TALT ,  TVEL ,  TP  I 
EXPANDED  10  120  ELEMENT  ARRAYS 

(1/19/87)  SIZE  OF  I  IS!  N , THSEN , TCPSEN , TLMC.TTS , TCHEM ,TBPF , 
TZSEN  ,1 C/SEN  ,TSURF , TSFN, 

TPR , NMG ,  T  MG , NLO  ,  NH I  ,kHI , I  SEN, 

EXPANDED  10  ACCOMMODATE  20  EST  TABLES  WITH  30 
ENTRIES  EACH 

(1/29/87)  ALL  OTHER  SUBSCRIPTED  VARIABLE  DIMENSIONS  DOUBLED 
AS  RECOMMENDED  BY  L.L.  PER  I  N  I  . 


CBM 

I R ( 76 ) ,TT2(60,20)  ,TCP(60,20) ,TKP(60,20) .THZCBM 


COMMON  KOUT, IEX,DIN,VR 
COMMON  IHI ( 76) , II  0( 16) , 

1(60,20) ,TEP( 60, 20)  .11 H(  120), THE ( 120) ,TQR( 120) ,TCM( 120) ,TT 1(60)  INPOU 
2 , TflG{ 60) ,DH12(4) , RECORD! 108) ,S0(40) ,RHO(20) , TEPBF (60 ,20 ) 

COMMON  MATE ( 101 )  ,DEt  ( 10 1 ) , TA( 10 1 ) ,H( 10 1 ) ,RC( 101 ) ,RA( 10 1 ) , 

1AREA( 101 ) ,EMA( 101) ,RAV( 101 ) ,LGAP( 101 ) ,QGEN( 101 ) .GAP ( 101 ) 

COMMON  ROA( 1000) ,ROB( 1000) ,R0C( 1000)  CBM 

COMMON  TPR  (  20 )  ,  NMG(  2() )  , 

C  TMG( 5 ,20 ) , NL0( 5,20) ,NH I ( 5 ,20 ) ,KH I ( 5 ,20) , 

1  TTSEN( 30,20) , THST N( 30 , 20) ,TCPSF N ( 30 ,20 ) ,TLMC(30,5,20) , I  SEN (20) , 

2  TP  I  (  120)  ,  TTS(  30,5,20) TCHEM(  30 ,5,20)  ,VFZ,CMH ,  TBPF  (  30 , 5 ,20)  , 

3  NPR.NGS 

COMMON  LCT.NPG, I  I , NBM  , NUMN ,NL ,DELHG,DELM,RFT ,RHORA,RHORB ,RH0RC , TRACBM 
1CA , TKACB , TRACC , RHOOA ,  RII008 .RHOOC , EA , EB  ,  EC  ,BA ,BB,BC,PSIA,PSIB,PSIC,CBM 
2TRACM,PET,Pt TE , RSV , E T A  ,D TPR3 ,01 PR2 .DTPRT , TPR3 , TPR2 , THZRO , THF I N ,WT ,C8M 
3TMWT  ,GAMA  ,OMG ,  NO  ,  1  .11  II.F.JFS.JF  ,JI  HP.JFH,  INPUT,  DTH  I  N  ,BRP  ,HCONV,CBM 

''EPSW.TRES, INCH.DTHB.NN  , N I ,N0!  ,CHCRI ,PYCRI , TBRP ( 120) , NR , 

5  TX( 30,6)  ,F  1(30,6)  .1 2t  3...6J ,NCON  .NBPF ,NF IS, BREX, SWELL 
COMMON  BBB(  10,6)  ,Ll {  10,6) ,FF( 10,6) ,PS I ( 10,6) ,RH00( 10,6) , 

XRHOR (  10.6)  , 

1R0C0M (50,3) , DHC (  10)  ,()HV( 10) ,RH0C( 10) ,RHOV( 10 ) ,P ( 10 ) ,PP (  10 ) , 

XTREF (  10)  , 

2GA( 10) , OMGA ( 10) ,Nf  I ( 10) ,NLA( 10 ) , 1 1 5(60 ,20 ) .TENT ( 60 ,20 ) , 

XTKBU (60,20)  , 

3TCBU(30, 10) ,X( 10  1 )  , NOBU , NBM? , IRAC ( 10,6) ,NBUFT( 10) ,KNST , 1BUG.TBUG, 

<i 

5 

6 
7 

JL 


506 


TALT ( 120) , TVEL (120) ,KKGAP( 101 ) ,AGAP(  101 ) , I COND , I  EROS , I  SR , 

NGC1 , NGC2 , NGC3  ,  NGC4 . I  CONI ( 101 ) , 1C0N2( 10 1 ) ,TC0N3 ( 10 1 ) . TC0N4 ( 10 1 ) , 
CONDI ( 101 )  , C0ND2 ( 101 ) ,C0ND3( 101 ) ,C0ND4( 101 ) , 

THCONV ( 101 ) ,TfPSW( 101) ,TTRES( 101 ) ,TQ( 101) ,TEPSD( 10 1 ) , I BF , TL , THD , 

JTBL,  I  ORD.RHQC  I  (201)  ,010112011 A  RA.1,RA2,RA3  _ , 

ICR  I  T  ,BPCR!  T,TABCN.IQPT.N.IHSG,H1TEB.!BL0PT  ^ 

TZSEN (  30,20) , TCZSEN ( 30,20)  ,  TSURF ( 30) ,TSEN(30) , IZ( 30) 


12 


18 

19 

20 
21 


COM 

DIMENSION 

DIMENSION  IOPT(6o)  INPOU  37 

DIMENSION  KSV ( 10 ) , KM  1 1  (12)  INPOU  38 

EQUIVALENCE  (DM1  ,011 12  (  1 )  )  ,  ( DH2 ,011 1 2  (  2 )  )  ,  (  TS,TA(  1  )  ) 

FORMAT  (  1 1X8HREAC1  ION2XitHRHOO5Xi(HRHOR8X1HB7X3HPSI0XlHE6X6HT  REAC/2  I NPOU  49 

13X10H(LB/CU  FT)6X/M( 1/SEC) 12X7H(OEG  R ) 3X?H{DEG  R ) )  INPOU  50 

507  FORMAT  ( 14XA 1 , 2X21  9 . 2  ,  ?XE  10.4,1  T.2.2XE 10 . 4 ,F8 . 0 )  INPOU  51 

510  F  ORMAT ( 12X3 1HRES I N  VOLUME  FRACTION,  GAHMA  a  F5 . 3  ,  !7H(MASS  FHACT ION  I NPOU  62 

1  =  F5.3, 1HJ/1H  )  INPOU  53 

523  FORMAT  { 20XF9 . 2 , /XI  V . 2 . 1 1XF9 . 2 )  INPOU  74 

624  F ORMAT ( /7X28HEN 1  MAI  I’Y  DATUM  TEMPFRATURE  =  F9 . 3 , 1X1 1H0EG  RANKINE)  INPOU  76 

636  FORMAT  (6X,F8.2,8X,I2.4X,2(F8.2,3X),F9.6,2X,F8.6,3X,F8.3)  IN 
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538 

F0RMAT(/727X30H— -SURFACE  EQUIl  IBRIUM  DATA—) 

1 NPOU105 

571 

FORMA! { !2,f 10.5, f 1D.5, f 10. 8, E 10.5, F TO. 5) 

580 

FORMAT  (8F10.5) 

INPOU 151 

587 

FORMAT ( 12) 

588 

FORMAT (  2G10.8) 

589 

FORMAT (  35H  CONDUCTIVITY  TABLE  FOR  GAP  KEY  =  ,  11,  / 

1  30H  TEMP ,R  K,BTU/(SEC-ET-F)  ,/( 

2  3X.F12.7.E15.5  )  ) 

5790 

FORMAT  (6X.26HN0  RADIUS  CORRECTION  ON  CH) 

1 NPOU129 

742 

FORMAT (615) 

1 NPOU789 

28612 

FORMAT ( 6X, 36HF ISSURf  MODEL  NOT  USED  FOR  GAS  TERMS) 

1 NPOU749 

28138 

F ORMAT ( 6X , 1 2HCHAR  SWELL  =F8.4,1X16H*  CHAR  THICKNESS) 

1 NPOU651 

28136 

FORMAT (6X.45HN0  CHAR  SWELL  CORRECTION  ON  SURFACE  RECESSION) 

INPOU648 

28132 

F ORMAT (6X.66HF ISSURE  MODEL  USED  FOR  SURFACE  ENERCY  TERMS  AND 

BLOWI 1 NPOU637 

TNG  CORRECTION) 

1 NPOU638 

7902 

FORMAT  (/28X.24HDECOMPOSING  BACK-UP  NO.  ,11) 

1 NPOU220 

DATA  BLANK, ASTER/ 111  ,111*/ 

NPG  =  1 

NMG(T)  =  1 

NPR  =  1 

INPOU 156 

1  NPUT=5 

INPOU157 

KOUT=6 

1 NPOU158 

c 

1 NCH=5 

INPOU 159 

C 

INPUT/OUTPUT 

1 NPOU163 

c 

1 NPOU164 

1 

NPG=-1 

INPOU165 

WRITE  ( KOUT, 55 1 ) NPG 

INPOU 166 

1  1  «-  \  rvwu  I  ,  JJ  I  t  Iir  imruuiob 

551  FORMAT! 1H110X65H  CHARRING  MATERIAL  THERMAL  RESPONSE  AND  AINPOU106 

1BLATI0N  PROGRAM/73X4HPAGE  I  3/1H  67X2A6)  INPOU107 

I  BUG  =  0 


C  - TITLE  CARDS 

C  RECORO(I)  =  ALPHANUMERIC  TITLE 

READ  (  5,  499)  (RECORD(I),  1=1.54) 

499  FORMAT  ( 1flA4 ,8X/  18A4 .BX/ 18A4 ,8X) 

WRITE  (KOUT  ,502 )  (KlCOR0(  I  ).  1  =  1  .54) 

502  FORMAT  (6X18A4) 

C  -  HEADINGS 

WRITE  (KOUT, 503)  INPOU176 

503  FORMAT ( //24X3 1H - RE ACT  I  ON  KINETIC  EQUATION— -/1H  )  I NPOU  43 

WRITE  (KOUT, 504)  I NPOU 177 

504  FORMAT! 1OX67HDRHO/0!  I  HI  =  GAHMA  (  BA*EXP( -EA/T )RHOOA( (RHOA-RHORA) / I NPOU  44 

1RMOOA) **PS I A  )/  21X46H*  GAHMA  (  BB«FXP ( -EB/T )RHOOB ( (RH0B-RH0R8 )/ I NPOU  45 

2RH00B ) **PS I B  )/  19X58II*( 1-GAMMA) (  BC*EXP( -EC/T )RHOOC( (RMOC-RHORC) / I NPOU  46 
3RHOOC ) **PS I C  ))  l NPOU  47 

WRITE  (KOUT, 505)  (NPOU 178 

505  FORMAT( /24X32M - RIACtlON  KINFTIC  CONSTANTS - /!H  )  INPOU  48 

WRITE  (KOUT, 506)  I NPOU 1/9 

c  - RTAD  PAkAMI  TfRS  FOR  INTERNAL-DECOMPOSITION 

C  A9.B9.C9  a  MATER  I Al  COMPONENT 

C  R MOOA , R HOOfl , R HOOC  -  INITIAL  OENSITY  Of  COMPONENT  I 

C  RHORA,  RHORB  ,RHORC  -  Rl  SI  DUAL.  Df  NS  I  TY  01  COMPONENT  l 

C  BA.BB.BC  =  PRE-IXPONI Nf IAL  FACtOR 
C  PS  I A  ,PS  IB  ,  PS  I  C  DINMIY  FACTOR  EXPONENT 

C  TA.EB.EC  =  ACTIVATION  ENERGY  FACTOR 

C  TRACA, TRACB , TRACC  •  MINIMUM  TEMPERATURE  OF  REACTION  ZONE 
C  IORD  =  ? 

C  N08U  =  NUMBER  Of  DECOMPOSING  BACKUPS 

C 

READ  (INPUT. 564)  A9 .RllOOA, RHORA , BA. PS IA.EA. TRACA. IORD, 
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1  B9.RH00B  .RHORB ,BB, 

1  PS  I B ,EB ,  TRAC8  ,C9  .RIIOOC  ,RHORC  ,BC ,  PS  I C  ,£C , TRACC , NDBU 
564  FORHATf  A1  ,9X,2F  1 0  .  *>  ,1  ID .  3  , F  10 . 5  ,T  10 . 3  , f  10 . 5 , 11/A 1  ,9X  ,2f  10 . 5  ,E  10 . 3  , 
IF  10.5,  E10.3.F  It).  5/A  1  .9X.2F  10. 5, MO. 3, F  10.5.E10.3.F  10.5.9X,  11) 

WR I TE  (KOUT ,507) A9 .  RIIOOA  ,  RHORA  ,BA ,  PS  I A , EA , TRACA ,89 ,RH00B .RHORB ,BB , 
1  PS  I B  ,  £B  ,  TRACB  ,C9  .RIIOOC  ,RHORC  ,BC  ,  PS  I C . EC ,  TRACC 

. READ  OIJTPUI  INTERVALS 

JF  =  NUMBER  OF  NOIUUIS  PER  NODE 
NUMN  =  TOTAL  NUM8ER  OF  NODES 

NN  =  SWITCH  FOR  rillKMOCOUPLE  AND  ISOTHERM  OUTPUT 

NO  =  NUMBER  OF  T Hi RMOOOUPLES  FOR  WHICH  OUTPUT  IS  DESIRED 

N I  =  NUMBER  OF  ISOIHIRMS  FOR  WHICH  OUTPUT  IS  OESIRED 

THZRO  =  INITIAL  VAI  Ul  OF  TIME 

TUFIN  =  FINAL  VAI Uf  01  TIME 

0TPRT.0TPR2.DTPR3  -  OUTPUT  TIME  INTERVALS 

OTHB  =  MAXIMUM  I  I  ML  s  i  t  P  PERM  I  T  ILD  ;  DEFAULTS  TO  5.0  SECONDS 
BRP  =  BLOWING  PARAMi HR;  BRP  <  O  -  PUTZ  &  BARTLETTE  CORRELATION 
BRP  >  0  -  OVFKKIDES  ZERO  VALUE  IN  TABLES 
BRP  =  0.5  -  MICKiEY  k  SPAULDING  CORRELATION 
TPR2.TPR3  =  TIME  OF  IRANSITION  FROM  INTERVAL  TO  INTERVAL 
DELM  =  MINIMUM  THICKNISS  OF  LAST  ABLATOR  NODE 
DH1,DH2,0ELHG  =  HEAT  OF  FORMATION  OF  VIRGIN  PLASTIC,  CHAR 
AND  i Ilf  PYROLYSIS  ZONE 

GAMA  =  VOLUME  FRACTION  OR  MASS  FRACTION  OF  THE  VIRGIN  PLASTIC 

WHICH  IS  OCCUPIFO  BY  RESIN.  NEGATIVE  GAMA  IS  MASS  FRACTION 
TZ  =  OATUM  TEMPER  T  OKI  OF  RHEATS  OF  FROMAT I  ON 

READ  ( INPUT, 563)  JF  ,  NUMN , NN ,N0  .  N I  ,  THZRO , THF I N ,D TPRT ,D7PR2 ,DTPR3 , 
IDT HB, BRP  ,TPR2,TPR3  .DU  M ,0H 1 ,DH2 , DELHC , GAMA, TZ 
563  FORMAT  ( 12, 13,  II  .  12 , 12. ?F 10.5/8F 10.5) 


IF ( IDRD.fq.O)  GO  10  I / 3 
READ( 5 , 5B0)  RA 1  .RA2.RA3 
WR  I  TE ( 6 , 585 )  RA1.RA2.RA3 

585  F  ORMAT ( 46H  CHAR  DINSlTY  A  F UNO  I  I  ON  OF  TEMPERATURE  RATE  ,/ 

1  L6H  RMOO/KHOP-  RA  1  ♦!<  A2/ (  RA3 -l  N  (  D  T/D  T  I  HE  )  )  ./ 

2  6M  RAU.F12.7,  OH  RA2=,F  12 .  / ,  &H  RA3=,M2.7) 

7  7  3  IF  (JF-1)  171,170.172 

170  JF  =2 
GO  TO 

171  JF  =  10 

172  JFH=JF/? 

JF  =  JF  H ♦  J F  M 
JF  HP - JF  H* 1 
F  JF  S^ JF 

F JFH=F JF S/2.0 
NO  I =NO*N I 

IF  (N0.G1.0)  Rt  All  ( *> .  Srtll  )  (  S0(  I  )  .  I  *  1  ,  NO ) 

If (Nl .U  .0)  GO  10  1H4 
NOP = NO* 1 

READ  (INPUT.  580)  (M)(l).  MNOP.NOI) 

109  IF (GAMA. L T. 0.0) 

tGAMA=:RHOOC/  (  RHOOC-  |  HHOOA*RH00£l )  -  (  RM0OA*«H0O8  )  /GAMA) 

OMC- 1 ,0-CAMA 

C  -  I  NS  TAN  I  AMI  (HIS  01  NS  I  T  >  OF  COMPOSITE 

RH0(  1  )«GAMA*{RMOlJA*MllOOB  )  ♦  OMC.’RMOOC 
RMO(  2  )  =GAMA"  (KH0MA*HIIOHH  )  ♦  OMG,KHO*C 
GAHAM  =  GAHA/RUO{  1  |  •  j  HHOOA+RMOCB  ! 

WRITE  ( KOU  T  .  5  10  )  GAMA  ,  C.AMAM 
If  (NOBU.EO.O)  GO  in  /til 


INP0U182 
I NPOU183 


INP0U184 

INPOU185 

INP0U121 


INPOU187 

INPOU108 

INPOU189 

INP0U190 

INP0U191 

INPOU192 

INP0UI93 

INP0U194 

INPOU195 


INP0U201 


I NPOU205 
f  NPOU206 
INP0U207 
I NPOU208 


44 


THE  JOHNS  HOPKINS  UNIVERSITY 

APPLIED  PHYSICS  LABORATORY 
laurel.  Maryland 


WR  I  T E  ( 6  .791  )) 

7900  FORMAT  (/23X,34H---UI COMPOSING  BACK-UP  K I NLT I CS - / ) 


INP0U211 


LOOP  FOR  OECOMPOSING  BACKUP  MATERIALS 


DO  704  1  =  1  ,NDBU  INP0U212 

READ( INPUT, 5640 )A9,KH0O{ 1,1) ,RHOR( 1,1) ,BBB( I , 1 ) , PS  I ( I , 1 ) ,EE ( I ,1 ) ,  INP0U213 
1TRAC( 1,1) ,89 ,RH00( I .2) ,RHOR( I ,2) ,BBB( I  ,2)  ,  PS  I ( I ,2) ,EE( I .2INP0U214 

2) , TRAC( 1,2) ,C9,RH00( 1,3) ,RHOR( 1,3) ,BBB (1,3), PS  1(1,3), EE(1 ,3) ,TRAC( INP0U215 
31,3)  I NP0U216 

5640  FORMAT  ( A1 ,9X2F  10 . 5  ,  MO  .  3  ,  F  10 . 5  ,E  .0 . 3  ,  F  10 . 5 )  INP0U124 

REAO( INPUT, 7901 )  OHV( I ) ,OHC( I ) ,GA( I ) , TREF { I )  INP0U217 

7901  FORMAT  (30X.2F 10.5,  10X,2F10.5)  INP0U218 

WR I TE ( KOUT ,7902 )  I  INP0U219 

WRITE (KOUT,  506)  I NP0U22 1 

WRITE (KOUT, 507)  A9,RIIOO( I . 1) ,RHOR( 1,1) ,BBB( I , 1 ) , PS  I ( I , 1 ) ,EE ( I , 1 ) ,  I NPOU222 
1TRAC( 1,1) ,B9 ,RH00( 1,2) ,RHOR{ I .2) ,BBB( I ,2)  ,  PS1 ( I ,2) ,EE( I .2INP0U223 

2) , TRAC( I ,2) ,C9 ,RHOO( I ,3) ,RHOR( 1,3) ,BBB( I ,3) ,PSI (1,3) ,lE( I ,3) ,TRAC( INP0U224 
31,3)  I NP0U225 

IF  (GA( I ) .LT.O.O) 

1GA( I )-RHOO( I , 3 ) / ( RHOO( 1,3)-  (RliOO( I ,1 )+RHOO( I ,2) )-(RHOO( I , 1 )+ 

2RH00( I ,2) )/GA( I ) ) 

0MGA( I )=1 . -GA( I ) 

RHOV( I ) =GA( I ) *( RHOO( I , 1 )+RHOO( I ,2) )+0MGA( I )*RH00( 1,3)  I NP0U230 

RMnrl  I  V=fiAf  I  \*IRI4fTR  M  ll+RMORM  P  \  1  +OMO  A  /  |  )  *RHOR  (1,3)  INPOIIPTI 


GAMAM=GA( I )/RHOV( I1*(RH00( 1,1) +RHOC( I ,2)) 

WR  I  TE (KOUT  ,5  10)  GA(  I ) ,GAMAM 
P( I ) =RHOV ( I )/(RHOV( I ) -RHOC( I ) ) 

PP ( I ) =P ( I )*RHOC( I ) 

DO  7030  J=1 , 3 

7030  FF ( I , J)  =  ( 1 ,-PSI (  I ,J) )*8BB( I ,J)*(RHOO( I , J) **( 1 . -PS I ( I , J) ) ) 

704  CONTINUE 

I  . -  MAXIMUM  I  I  ME  STEP  DEFAULT  TO  5.0  SECONDS 

701  IF(OTHB.EQ.O.O)  0'IHB  =  5.0 
DTH I N= . 01 

IF(TPR2.LE.0.0)  TPR2- IMF  IN 
I F ( TPR3 ,GT .0 .0)  GO  10  417 

416  TPR3=THF I N 

I  7 ( TPR2 . GT , THZRO )  GO  TO  417 

DTPRT=0TPR2 

DTPR2=DTi’R3 

TPR2=TFR3 

GO  TO  416 

■  -  ECHO  TIME  INTERVAL  INFORMATION 

417  WRITE  (KOUT, 51 1 ) 

511  FORMAT  (24X32H---T I  ME'  INCREMENT  INFORMATION---/^  ) 

TMF IN=AMAX1(THF IN, IPR2.TPR3) 

WRITE  (K0UT,512)TII/R0,THFIN 

512  FORMAT  ( 6X18H I N I T I Al  TIME  . SEC ) F 9 . 2 ,26X16HF I NAL  TIME  (SEC)F9 
WRITE  ( KOUT ,513)0 1 PRI , TPR2 

513  FORMAT  (1H  /6X17HOUTPUT  INTERVAL  =F9 . 3 , 1X27HSEC  FROM  INITIAL 
1UNTIL  F9.2.4H  SEC) 

WRITE  (KOUT  ,5 14 )  D  ri’R2  ,  TPR2  ,TPR3 

514  FORMAT  (6X17H0UIPU1  INIERVAL  =F9 . 3 , 1X8HSEC  FR0MF9.2, 1X9HSEC 
19.2,411  SEC) 

WRITE  (KOUT , 515)DIPR3 , IPR3 

515  FORMAT  (6X17HOUTPUT  INTERVAL  =F  9 . 3 , 1X8HSEC  FR0MF9.2 , 1X20HSEC 
1  FINAL  TIME/1H  ) 

WRITE  (KOUT, 516)  DJHB 


I NP0U230 
INP0U231 
I NP0U232 
I NP0U233 
I NP0U234 
I NPOU235 
I NPOU236 
I NPOU237 
I NPOU238 


UNTILF 


UNTIL 


I NPOU246 


I NPOU249 
I NP0U250 
INPOU251 

INP0U252 
INPOU  54 
I NPOU253 
I NP0U254 
INPOU  55 
I NPOU255 
INPOU  56 

I NPOU256 
INPOU  58 

I NPOU257 
INPOU  60 
INPOU  61 
INP0U258 
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516  FORMAT  (6X,  19HMAXIMIJM  I  I  ME  SUP  -,F9.3,8M  SECONDS) 


TRACM=AM  I  N 1  (  TRACA ,  I RACI5 , 1 RACC ) 

PETE  =  0.0 

ZZZ  =  RHO(  1 )  -  RH0(2) 

IF(ZZZ.NE.O.O)  PETE  RH0(1)/ZZZ 
PET=PETE#RHO(2) 

C 

c  -  NODAL  PROPERTIES 

C 

N=0 

KHS=10 

NDBUCH=0 

J1=JFH 

CALL  L COUNT  (  -NUMN-fi  ,l.CT  ,NPG) 

WRITE  (  6,517) 

51  ^  FORMAT (/29X16H - NODAI  DATA---/U!  ) 

WRITE  (  6,518) 

518  FORMAT (6X74HNODE  MAIL  TEMPERATURE  RELATIVE  THICKNESS 

1PTM  GAP  QGEN  ) 

WRITE  (  6,519) 

519  FORMAT( 7X95HN0.  NO.  (DEG. RANK INE)  AREA  (INCHES) 

1  INCHES  BTU/FT3-SEC  RRGAP  AGAP  ) 

BLASTER 


I NPOU259 


I NPOU26 1 

I NPOU262 

I NPOU263 
I NP0U264 
I NPOU265 
I NPOU266 


INPOU  63 
NODAL  DE INPOU  64 


( INCHES) INPOU  66 
I NPOU27 1 


c  - read  nodal  data 

C  MATL  =  MATERIAL  NUMBER 

C  TA  =  INITIAL  TEMPERAI ORE 

C  AREA  =  INITIAL  CROSS-SECTIONAL  AREA;  BLANK  IF  RADIUS  RELATED  AREA 
C  DEL  =  INITIAL  THICKNISS  OF  NODE 
C  RA  =  IDENTIFIES  GtOMMRY  TYPE 

C  QGEN  =  HEAT  GENERATION 

C  LGAP  =  FLAG  FOR  GAP  1YPE 

C  GAP  =  GAP  SIZE  IN  INCHES 
C 

READ(  5,560) (MAIL ( I ) ,TA( I ) , AREA( I ) ,DEL( I ) ,RA( I j ,QGEN(  I ) , 

1  LGAP ( I ) , GAP ( I ) , I  -  1  , NUMN) 

560  FORMAT ( I2,5E10.0,I1,E9.0) 

C  - 


RC( I )  =0.0 
AE=RA(2) 

RSV=RA( 1 ) 

RA( 1 ) =0 .0 

RRGAP ( 1 )  =  DEL ( 1 ) 

C 

C  -  PROCESS  NODAL  DATA 

C 

DO  400  1=1, NUMN 
I F ( 1-2)  4541,452,453 

453  R A ( I ) =RA( I  -  1  )  +  ( DEI  (  I  -  1 ) +CEL ( I ) ) /2 . 0  +  GAP ( 1  -  1 ) 

RRGAP ( I )  =  R  A ( I )  +  ( GAP ( I )  +  DEL ( I ) ) /2 . 0 
GO  TO  461 

452  RA( 2) =DEL ( 1 ) +DEL  (2)/2.  +  GAP ( 1 ) 

RRGAP (2)  =  RA(2)  +  (GAP(2)  +DEl(2))/2.0 
B=BLANK 

461  DEL( I  -  1 ) =DEL ( 1-1 )/12. 

GAP ( 1-1)  =  GAP ( I  -  1 ) / 1 2 , U 
4541  RAV( I ) =RA( I ) 

IF(AE.EQ.O.O)  GO  TO  4543 

AREA( I )=(ABS(RSV+RA( I ) ) )*»AE 

AGAP (  I )  =  ( ABS ( RSV+KRGAP  (  I ) ) ) **AE 


I  NP0U273 
I  NP0U274 
I  NPOU275 


I NPOU276 
I NPOU277 


I NPOU279 

I NPOU28 1 
I NP0U282 

I NPOU283 

I NPOU285 
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GO  TO  454 

INP0U286 

4543  IF(AREA{ 1 ) .GT.O.O)  GO  TO  454 

IF (RSV.EQ.0.0)  GO  TO  0546 
AREA( I ) =ABS(RSV+RA{ I ) ) 

AGAP(I)  =  ABS( RSV+RRGAP ( I ) } 


AE=1 .0 

1 NP0U290 

GO  TO  454 

INP0U291 

4546 

AREA( l)=1. 

AGAP(I)  =  1.0 

1 NP0U292 

454 

QGEN( 1 )  =  QG£N( 1 ) *  1 728.0 

WRITE!  6,520) 1 ,MAII  ( 1 ) ,TA( 1 ) , AREA( 1 ) ,DEL( 1 ) ,RA( 1 ) ,GAP( 1 ) , 

1  LGAP ( 1 ) , QGFN( 1 ) ,RRGAP( 1 ) ,AGAP( 1 ) 

520 

F  ORMAT ( 3X2 16, F 12.2,E13.4,F9.5,F 12 .6 ,F9 .6, IX, !1 ,F9 . 3 ,F9 .6 ,F9.6) 

1 F ( LGAP ( 1 ) .EQ.O)  GO  TO  455 

IF (LGAP( 1 ) .LE.4)  WR 11 E ( 6 , 546 ) 

546 

FORMAT (20H  GAP  GAS  COND  BELOW  ) 

1 F ( LGAP ( 1 ) , EQ . 5)  WRITt(6,547) 

547 

FORMAT ( 18H  AIR  IN  GAP  ) 

1 F ( LGAP ( 1 ) . EQ . 6 )  WRI1E(6,548) 

548 

FORMAT ( 18H  HELIUM  IN  GAP  ) 

1 F { LGAP ( 1 ) .EQ.7)  WRIT  1(6,549) 

549 

FORMAT ( 18H  NO  GAS  IN  GAP  ) 

455 

IF  (MATL( 1 )“2)  401,405,705 

401 

NL=  1 

INP0U295 

DO  404  J=1,J1 

1 NP0U296 

N=N+1 

RHOCI ( 1 )  =  RH0(2) 

1 NP0U297 

ROA( N ) =RHOOA 

1 NP0U298 

ROB ( N ) =RHOOB 

1 NP0U299 

404 

R0C(N)=RH00C 

1 NPOU300 

J1  =  JF 

INP0U301 

GO  TO  400 

1 NP0U302 

405 

NL=  1 

1 NP0U303 

DO  406  J=1,J1 

1 NP0U304 

N=N+1 

1 NP0U305 

ROA(N)=RHORA 

INP0U306 

ROB(N)=RHORB 

1 NP0U307 

406 

ROC( N ) =RHORC 

INP0U308 

J1-JF 

1 NP0U309 

GO  TO  400 

INPOU310 

705 

1 F ( MATL ( 1 ) .LE. 10)  GO  TO  400 

K=MATL ( 1 )-21 

VKH=FLOAT(K)/2.0 

INPOU313 

KH=K/2 

VKH2=KH 

1 F ( VKH . NE . VKH2 )  GO  10  708 

ROCOM( 1,1) =RHOR (KH , 1 ) 

INP0U314 

ROCOM( 1 ,2 ) -RHOR  ( KH , 2 ) 

INP0U317 

ROCOM( 1 ,3)=RHOR(KM,3) 

INPOU318 

X(  1  )  =0 . 

INP0U319 

GO  TO  709 

1 NP0U320 

708 

KH=KH+1 

INPOU321 

ROCOM( 1 , 1)=RH00(KH, 1 ) 

1 NP0U322 

ROCOM( 1 ,2)=RH00(KH,2) 

1 NP0U323 

ROCOM( 1 , 3)-RHOO(KH,3) 

INP0U324 

X( 1 ) =1 . 0 

1 NPOU325 

709 

IF (KH.EQ.KHS)  GO  TO  7092 

NF 1 (KH) = 1 

KHS=KH 

1 NP0U328 
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c 

c 

c 


NDE,UCH=NDBUCH+1  INPOU329 

7092  NLA:KH)  =  I  I NPOU330 

400  CONTINUE  INPOU331 

PROCESS  BACKUP  MATERIALS 

I F ( NDBU-NDBUCH)  7095,403  ,7093 

7095  WR I TE ( KOUT ,7096 )  INPOU333 

7096  FORMAT ( 10X.55HTOO  MANY  DECOMPOSING  BACK-UPS  IN  NODAL  DATA  —  QUIT  INPOU334 
1  JOB) 

STOP  I NPOU336 

7093  WR  I TE( KOUT, 7097)  INPOU337 

7097  FORMAT( 10X,54HT00  FEW  DECOMPOSING  BACK-UPS  IN  NODAL  DATA  --  QUIT  J 
10B ) 

STOP  I NPOU340 

403  DEL( NUMN) =DEL (NUMN ) /  12  .  INPOU342 

GAP ( NUMN )  =  GAP ( NUMN ) / 1 2 .0 

CALL  SLOPQ(NUMN,RA,ARE A,EMA)  INPOU343 

NBM=NL+1  INPOU344 

IF(NDBU.EQ.O)  GO  TO  7099 
NBM2=NLA( NDBUJ+1 

GO  TO  7091  I NPOU347 

7099  NBM2=NBM  INPOU348 

7091  CONTINUE  INPOU349 

IF(RSV)  4031,4032,4033  INP0U350 

4031  RSVN=-RSV  INPOU351 

WR  I  TE ( KOUT, 554 )RSVN , At  INPOU352 

554  F ORMAT ( 8X24H* INITIAL  EXTERNAL  RADIUS, 1X,F6.3,4X,21HAREA  PROP. TO  RAINPOU113 

1DIUS**F4.2)  INPOU114 

GO  TO  304  I NPOU353 

4032  WR I TE (KOUT, 555)  INPOU354 

555  F ORMAT ( 8X 1 5H*PL ANAR  SURFACE)  INP0U115 

GO  TO  304  I NPOU355 

4033  WRITE(KOUT,553)RSV.At:  INPOU356 

553  F ORMAT (8X24H* INITIAL  INTERNAL  RADIUS, 1X,F6.3,4X,21HAREA  PROP. TO  RAINP0U111 

ID  I US#*F4 .2)  INPOU1 12 

304  WRITE  (KOUT, 521)  DEL.M.JF  INPOU357 

521  FORMAT  (  14X47HM I N I  MUM  THICKNESS  Of  LAST  ABLATOR  NODE  ( INCHES) F I NPOU  69 

17 .4/14X, 10HTHERE  ARE  ,I2,40H  NODELETS  ASSIGNED  TO  EACH  ABLATING  NOINPOU  70 
2DE  )  I  NPOU  71 

DELM=DELM/12.0  INPOU358 

c  - READ  BACKWAI  L  HEAT  TRANSFER 

C  I BF  =  NUMBER  OF  TABUl AR  ENTRIES 

C  HCONV  =  BACKWALL  CONVECTIVE  COEFFICIENT 
C  EPSW  =  BACKWALL  EMMISIVITY;  RADIATES  TO  ZERO  DEG  R 
C  TRES  =  RESERVOIR  TEMPFRATURE  FOR  CONVECTION 
C  CHCRI  =  CHAR  ZONE  CRITERIA  (RC) 

C  PYCRI  =  PYROLYSIS  ZONE  CRITERIAL  (RP) 

C  NCON  =  OUTPUT  THERMAL  CONDUCTIVITY  INSTEAD  OF  ENTHALPY 
C 

READ ( 5 , 582 )  I BF , HCONV , E  PSW, TRES ,CHCR I , PYCR I , NCON 
582  FORMAT (I2,F8.5,4F10.5,9X,I1) 

IF  ( IBF.EQ.O)  GO  TO  305 

C  . READ  I  I  ME  DEPENDENT  BACKWALL  HEAT  TRANSFER  TABLE 

C  TQ  =  TIME 

C  T HCONV  =  BACKWALL  CONVECTIVE  COEFFICIENT 

C  TEPSW  =  BACKWALL  EMISSIVITY  FOR  RADIATION  TO  ZERO  DEG  R 

C  TEPSD  =  BACKWALL  EMISSIVITY  FOR  RADIATION  TO  TTRES 

C  TTRES  =  RESERVOIR  TEMPERATURE 

C 
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DO  306  I  =  1 , IBf 

READ(5,590)  TQ{  I  )  ,  UI(:ONV(  I )  ,TEPSW(  I  )  ,TEPSD(  I )  ,TTR£S(  I  ) 

590  FORMAT (5F 10. 5) 

306  CONTINUE 
GO  TO  307 

305  DO  308  1=  1,2 

THCONV{ I ) =HCONV 
TEPSW{ I )  =EPSW 
TEPSO ( I )  =  0.0 
TTRES(I)  =TRES 
308  CONTINUE 
TQ( 1 )=THZRO 
TQ(2)=THF IN 
I  BF=2 

307  IF  (CHCRI .LE.0.0)  CHCRI=0.02 
IF  (PYCRI .LE.0.0)  PYCR 1=0.98 
TA( NUMN+1 ) =TRES 
CALL  L COUNT  (4  ,l.CT  ,NI’G) 

I NP0U366 
INP0U152 
I NPOU153 
INPOU154 


I NP0U368 

522  FORMAT ( /18X48H - Hf  A  I  OF  FORMATION  OF  MATERIAL  CONST  I TUENTS-  — /37XI  NPOU  72 

18H( BTU/LB ) /21X7HPIAS  I  I C 1 1X4HCHAR 17X3HGAS)  INPOU  73 

WRITE  (KOUT, 523)0111 .OUP.DELHG  INPOU369 

CALL  L COUNT  ( 2  ,  LC  T  ,  NI’G ) 

C  -  WRITE  OUT  ENTHALPY  DATUM  TEMPERATURE 

WRITE  (KOUT, 524 )TZ 
IF  (NDBU.LE.O)  GO  10  /910 
DO  7908  J= 1 , NDBU 
CALL  LCOUNT(8,l  Cl ,NPG) 

WRITE  (KOUT,  7902)  ,1 

7909  FORMAT( /21X7HPLAS I  I C I1X4HCHAR 17X3HGAS ) 

WRITE (KOUT, 7909) 

WRITE  (KOUT,  523)  DHV(  J)  ,0.HC(J)  ,DELHG 
7908  WRITE (KOUT, 524)  TRfF(J) 

C 

C  . —  MATERIAL  PROPERTIES 

C 


I NPOU37 1 


I  NPOU375 
I NP0U376 
I NPOU377 
I NPOU378 
I NPOU379 

I NP0U381 


WR I TE ( KOUT  ,58 1 )  HCONV . EPSW, TRES 

581  FORMAT! /14X20HBACK  WAIL  CONVERT I0N10X9HBACK  WALL 10X9HRESERVO I R/ 

1 1 3X23HC0EF  BTU/F  TSQ-SFC-DEG  R8X 10HEMISS I VI TY8X1 1HTEMPERATURE/ 
217XF10.4, 18XF6.3 , 10XF 10.2) 

WR I TE ( 6 , 59 1 ) 

591  FORMAT (20H  BACKWALL  CONDITIONS  / 

1  57H  T I  ME ( SEC)  CH( BTU/S/F2/R )  EMSW  EMSD  TRES(R)  ) 
DO  309  I  =  1 , I BF 

WRITE (6, 592)  TQ( I ) ,THCONV( I ) ,TEPSW( I ) ,TEPSD( I ) ,TTRES(  I ) 

592  FORMAT (  F8 . 2,F  14 .4  ,F 13 .3,F 13 . 3 ,F10. 1 ) 

309  CONTINUE 

CALL  LCOUNT ( 5 ,LCT ,NPG) 

WRITE  (KOUT, 522) 


7910  CALL  LCOUNT (6 ,LCT ,NPG) 

WRITE  (KOUT, 525) 

525  FORMAT  { //22X36H - MATER  I AL  THERMAL  PROPERTY  DATA— -//6X14HMATER I NPOU  76 

1IAL  NO.  1 10X14HMATE  R I AL  NO.  2 10X26HMATER I AL  NOS.  3  THROUGH  10/6X14INP0U  77 
2HVIRGIN  PL AST  I C 1 5X4HGHAR23X7HBACK-UP )  INPOU  78 

CALL  LCOUNT  (3,1.  CT  ,NPG) 

WRITE (KOUT, 7905)  INP0U385 

7905  FORMAT ( /3X ,82HOECOMP()S I NG  BACK-UP  VIRGIN  MATERIALS  22,24 ,26,28, 30, I NP0U386 
1  CHAR  MATERIALS  23,25,27,29,31)  INP0U387 

I T=0  I NP0U388 
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IL0(3)=1 

IL0(4)=1 

KT=1 

350  I  T= I T+ 1 

-  READ  MAIIKIAL  PROPERTY  TABLES 

NC  =  FLAG  TO  MARK  END  OF  MATERIAL  TABLE 

TT2  =  TEMPERATURE 

TCP  =  SPECIFIC  MF AT 

TKP  =  THERMAL  CONDUCTIVITY 

TEP  =  EMISSIVI TY  01  FRONT  FACE 

TEP8F  =  EMISSIVI TY  OF  BACK  FACE 


I NP0U389 
I NP0U390 
I NPOU39 1 
I NP0U392 


READ  ( INPUT, 571 )  NC , T  T2 ( I T ,XT } , TCP ( I T ,KT) , TKP ( I T ,KT ) , TEP ( I T ,KT) , 

1  TEPBF (  I T  ,KT ) 

IF  (NC.EQ.O)  GO  TO  350 
I H I (KT+2)=lL0(KT+?)+l  1-1 

IR(KT+2)=IL0(KT+2)  INP0U396 

THZ( 1 ,KT)=0.  I NP0U397 

-  COMPUTE  ENTHALPY 

DO  357  1=2,  IT  I NPOU398 

357  THZ ( I ,KT ) =THZ ( I  -  1  ,KT ) +  ( I  CP ( I  ,KT ) +TCP( I  - 1 ,KT) )/2 .*( TT2 ( I ,KT)-TT2(  I-INP0U399 
1 1 ,KT) )  I NPOU400 

CALL  LOOK  (KT+2,TZ,TI2(1,KT),THZ(1,KT), 0,0,0, HSH, DUM,1)  INP0U401 

- -  REFERENCES  ZERO  ENTHALPY  AT  DATUM  TEMPERATURE,  TZ 

DO  359  1=1, IT  I NP0U402 

359  THZ(  I ,KT)=THZ( I ,K! )-HSH  INPOU403 

CALL  L COUNT (6+ I T ,LCI ,NPG) 

-  ECHO  MATERIAL  PROPERTY  INPUT 

WRITE(KOUT,526)KT,f<IIO(KT)  ,(TT2(  I  ,KT)  ,TCP(  I  ,KT )  ,TKP  (  I  ,KT )  ,  THZ  (  I  ,KT)  I  NP0U405 
1  ,TEP( I  ,KT ) , TEPBF ( .,K(),I=1,IT) 

526  FORMAT ( /6X12HMA I E R I Al  NO . 1 2 , 30X9HDENS I TY  =F8 . 3 , 1X8HLB/CU  FT/  I NPOU  79 

1  7X 1 IHTEMPI'RAI UKE5X13HSPE  Cl F I C  HEAT5X12HC0NDUCT I V I TY5X8HSEN I NPOU  80 

2SIBLE4X5HEMISS,5X,5III MISS  /58X , 8HENTHALPY ,4X, 5HFR0NT , 5X.4HBACK/ 

3  9X,7H(DEG  R),7X,1?II(DTU/LB-DEG),4X,16H(BTU/ET-SEC-DEG), 

4  3X ,8H ( BTU/LB ) / 

5  ( 8XF8 . 2 ,8XF  / . 4 ,9XF 10.7,  /XF9 . 2,4XF7 .4 ,4X,F7 .4) ) 

KT=KT+1  I NP0U407 

I T=0  I NP0U408 

IF  (NC.GE.O)  GO  10  353 
IF  (KT.LE.2)  GO  TO  35(1 
IF  (NDBU.EQ.O)  GO  10  4 1  TO 
1  =  1 

. .  PROCESS  DECOMPOSING  BACKUP  MATERIALS 

DO  720  K=1 ,NDBU  INPOU413 

IT=0  INP0U414 

712  IT=IT+1  I NP0U415 

READ( INPUT, 571 )  NC, I T5( I T, I ) ,TCBU( IT, I ) ,TKBU( IT, I )  INP0U416 

IF(NC)  713,712,713  INP0U417 

713  I H I ( I +2  1 )  =  I  T  INP0U418 

I L  0 ( I +2 1 )  =  1  I NP0U419 

IR(  1+21  )  =  1  I NP0U420 

TENT ( 1 , I ) =0 .  INP0U421 

DO  714  J=2,IT  I NP0U422 

714  TENT( J, I )  =  TENT( J-1  , I )  +  ( TCBU( J,  I  )  +  TCBU( J- 1 , I ) ) /2 . *( TT5 ( J , I ) -TT5( J- 1  I NP0U423 

1,1))  I NP0U424 

CALL  LOOK (2 1+1 . T RE F ( K ) , T T5( 1 , 1 )  .TENT ( 1,  I ) ,0 ,0 ,0 , HSH ,DUM, 1 )  I NPOU425 

DO  715  J=1  ,  IT  I NP0U426 

715  TENT(J, I )  —  TEN  I (J, I ) -HSH  INP0U427 
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I F ( 2#K- I )  717, 716, /I/ 

716  RRR=RHOC(K) 

GO  TO  718 

717  RRR=RHOV(K ) 

718  CALL  LCOUNT (6+ I T ,LCT , NPG) 

L= I +2 1 

WR I TE(KOUT ,5260 )  L ,RRR , ( TT5( J, I ) ,TCBU( J, I ) ,TKBU( J, I ) ,TENT( J, I ) , 

1  J=1 , I T) 

5260  FORMAT( /6X12HMA1ER IAL  NO . 1 2 , 30X9HDENS I TY  =F8.3 , 1X8HLB/CU  FT/ 

1  7X1 1 HTEMPLRA HIRE 5X1 3HSPEC I F I C  HEAT5X12HC0NDUCT I VI TY5X8HSEN 

2SIBLE  /58X8HENTHALPY/9X7H(DEG  R)7X12H(BTU/LB-DEG)UX1 

36H( BTU/FT-SEC-DEG) 3X8H ( BTU/LB ) / 

4  (8XF8 ,2 ,8XF  7.4 ,9XF 10. 7 , 7XF9. 2  )) 

1  =  1+1 
I  T=0 

IF  (NC.CE.O)  GO  TO  353 
IF  (2*K-I . EQ.O)  GO  TO  712 
720  CONTINUE 


I  NPOU428 
I NPOU+29 
I  NPOU430 
I  NP;  431 

I  'IPOU433 
I  NPOU434 
irr  OU435 
INPOU  84 
INPOU  85 
INPOU  86 
INPOU  87 
INPOU  88 
I NP0U436 
INPOU.;  37 


I NPOU440 


4110 


I  N=0 
L=0 


I NPOU441 
I NPOU442 


C  - F-FUNCT  ION  TABLE  LEAD  LINE 

411  READ( INPUT, 561 )  KT ,1  EMB ,RH0(KT ) , (KMTL ( I ) , I  =  1 ,6) 


561  FORMAT ( 12, II, F7. 4, 611) 

I F (RHO(KT) )  3550,3550,355  INP0U444 

3550  LL=1  . 1 NP0U445 

L=L  +  1  I NP0U446 

JBU=0  I NPOU447 

IF  (KMTL(I).GT.O)  GO  10  3559 

WT=FL0AT(L) 

IN=1  INP0U450 

LL=2  INP0U451 

3559  DO  3554  l=LL,6  INP0U452 

IF  (KMTL ( 1 ) .LE .0 )  GO  TO  3554 
JBU= JBU+ 1 

KSV( JBU)=KMTL( I )  I NPOU455 

J=KMTL ( I )  I NPOU456 

NBUFT( J)=L  I  NPOU457 

3554  CONTINUE  INP0U458 

IF(JBU.LE.O)  GO  TO  3540 
CALL  OROER I ( JBU.KSV) 

3540  IX=0  INP0U461 

3551  IX=IX+1  INP0U462 

C  -  F-FUNCT  ION  TABLE 

READ( INPUT, 497)  NC ,TX( IX ,L ) ,F 1 ( IX, L ) ,1 2( IX, L )  INP0U463 

497  FORMAT( I2.3F10.5)  INPOU  40 


IF  (NC.EQ.O)  GO  TO  3551 
ILO(L+3 1 )=1 
I H I (L+31  )=  IX 
IR(L+31)=1 

CALL  LCOUNT ( 5+ I N+JBU+4*( 1-(L+2)/4),LCT,i  G) 

IF  (L.LE.1)  WR I Tt ( 6 ,495) 

495  FORMAT ( //7X,67HTABl  f  S  OF  OPTIONAL  MASS-FRAC1 I  ON  FUNCTIONS  FOR  THER I NP0U479 

1MAL  CONDUCT  I V I  TY/25X , 23HK  =  FM*)*KP  +  F2(X)*KC)  I  NPOU480 

WR I TE(KOUT,496)  L 

496  F0RMAT(/23X,21HF-F UNCI  ION  TABLE  NO,  ,I1,12H  ASSIGNED  TO)  INPOU481 

IF  ( IN.GT.O)  WRI IF (6,4971) 

4971  FORMAT ( 34X , 13HMAI N  MAIFRIAL)  INP0U482 

IF  (JBU.GT.O)  WR I TE ( 6 , 498 1 ) (KSV( I ) , I =1 , JBU) 

4981  FORMAT (28X.24HDLCOMPOS I NG  BACK-UP  NO.  ,11)  INPOU483 
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c 


c 


c 


c 


c 

c 

c 


c 

c 

c 


WR  I  TE  (KOUT  ,494  )  (  TX(  I  .1  )  ,F  1  (  I  ,1  )  ,F2{  I  ,L  ) ,  I  =1 , 1 X) 

494  FORMAT (  /25X,  1HX, 12X ,SHF  1  ( X) ,  10X,5HF2(X)//i 13X,3(5X,F10.4) ) ) 

I  N=0 

If  (NC)  411,411 ,353 
355  I T= I T+1 

- Rt'AD  BACKUP  MATERIAL  PROPERTIES 

READ  (INPUT, 571)  NC, I I2( I T,KT) ,TCP( IT.KT) ,TKP( IT.KT)  ,TEP(IT,KT), 
1  TEPBF ( I T  ,KT ) 

IF (LEMB.EQ.O)  TEPBF (IT.KT)  =  TEP (  IT.KT) 

IF  (NC.EQ.O)  GO  TO  355 
I LO( KT+2 ) =1 

IHI (KT+2)=IL0(KT+2)+l 1-1 
IR(KT+2)=IL0(KT+2) 

CALL  LCOUNT (5+IT,LCT,NPG) 

-  ECHO  BACKUP  MATERIAL  PROPERTIES 

WRITE  (KOUT, 527)  KT,RH0(KT),(TT2( I ,KT) ,TCP( I ,KT) ,TKP( I ,KT) , 

1  TEP (  I  ,KT  )  ,  TEPBF (  I  ,KT  )  ,  I  =  1,IT) 

527  FORMAT (/6X12HMATER I AL  NO. 12 , 30X9HDENS I TY  =F8 . 3 , 1X8HLB/CU  FT/ 

1  7X1 1HTEMPERAIURE5X1 3HSPECI F I C  HEAT5X,7HCONDUCT,5X, 

2  5HEMISS,5X,5HEMISS/9X,7H(0EG  R), 

3  7X12H(BTU/LB-OEG)4X16H(BTU/FT-SEC-DEG) ,1X,5HFRONT,2X,4HBACK/ 

4  (8XF  8 . 2 ,8XF7 . 4 ,9XF 10.7,4X,F7.4,4X,F7.4) ) 

I  T=0 

IF  (NC.LE.O)  GO  TO  411 
-  PYROLYSIS  GAS  ENTHALPY 


I  NPOU478 
I  NPOU477 
I NP0U484 
I NPOU485 


I NPOU489 
I NPOU490 


INPOU  89 


INPOU493 
i NPOU495 


353  NT 1=0 

361  IN=1+NT1  I NPOU497 

NT  1 =8+NT 1  I NPOU498 

READ  ( I NPUT , 575 ) NC , ( 1 T 1 ( I ) , I  =  IN  ,NT1 ) , ( THG( I ) , 1  =  I N,NT1 )  INPOU499 

575  FORMAT ( I1,F9.5,7F10. 5/8F  10.5)  INPOU126 

I F ( NC) 36 1 ,361 ,362  INPOU500 

364  NT 1=NT  1-  1  INPOU501 

362  IF  (TTI(NTI) .LE.O.O)  GO  TO  364 

1 L0( 2 ) =1 

|R(2)=1  INP0U504 

IHI (2)=NT1  I NP0U505 

CALL  LCOUNT ( 3* ( (NT  1+91/5)  ,LCT,NPG) 

. .  DISPLAY  RfSIN  DECOMPOSITION  TABLE 

WRITE  (KOUT, 532) 


532  FORMAT  ( //20X4/H---RES I N  DECOMPOSITION  GAS  SENSIBLE  ENTHALPY— -) I NPOU  94 


I F  N=0  INPOU508 

368  I N= I FN+ 1  I NPOU509 

IFN=MIN0(NT1 , IFN+5)  INPOU510 

WRITE  (KOUT ,531)(TI1(I),I-IN,IFN  )  I NP0U5 1 1 

531  FORMAT  (1H  /6X19HTLMPI RA1URE  (DEG  RJ5F11.2)  INPOU  93 

WRITE  (KOUT, 533) (THG( I )  ,  I  =  I N ,  IF N)  INPOU512 

533  FORMAT  (6X19HENTHAI  PY  (BTU/LB)5F 11.2)  INPOU  95 

IF  (NT1.GT. IFN)  GO  10  368 


FUNCTIONS  OF  TIME 


I  NP0U514 


NTH=0 

IS=0  I NP0U5 16 

NOPT=0  INPOU517 

CALL  LCOUNT ( -3 ,LCT ,NPG) 

WR I TE ( 6,545) 

545  FORMAT (26X,  46H--INPUI  TIME  DEPENDENT  BOUNDARY  CONDITIONS--  /) 

--- .  READ  SIJRFACF  BOUNDARY  CONDITIONS 

RAOUS  =  NOSE  RADIUS  USED  TO  MODIFY  CONV.  AND  RAO.  HEAT  TRANSFER 
BY  (RN )  **-() .  5 
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QFC  =  CONVECTIVE  Mf AT  TRANSFER  FACTOR 

QFR  =  RADIATIVE  HEAT  TRANSFER  FACTOR 

QFF  =  FREE  MOLECULAR  FLOW  HEAT  TRANSFER  FACTOR 

QFP  =  SURFACE  PRESSURE  FACTOR 

I  EROS  =  IF  NOT  ZERO,  USES  LUNDELL  Sc  DICKEY  EROSION  MODEL 
IBPRD  =  NOT  USED 

I  SR  =  IF  NOT  ZERO,  NO  SURFACE  RECESSION  ALLOWED,  BUT  BLOWING  AND 
ENERGY  LOSS  If  RMS  INCLUDED 
ICOND  =  NUMBER  OF  GAS  CONDUCTIVITY  TABLES  FOR  GAPS 
I  BUG  =  DEBUG  OUTPUT  SWITCH  (  0  -  NO  DEBUG  OUTPUT) 

TBUG  =  TIME  IN  WHICH  THE  DEBUG  OUTPUT  STARTS 


READ (5,540)  RAOUS ,QFC ,QFR ,QFF , QFP, I  EROS, IBPRD, ISR, ICONO, IBUG.TBUG 

540  FORMAT(  5FT0. 0,512,  F10.0) 

WRIT£(6,541 )  RADUS,  QFC,  QFR,  QFF, QFP 

541  FORMAT (  26H  —INPUT  TIME  TABLES - / 

1  18H  NOSE  RADIUS( IN)  =  ,  F10.4  .  5X,15HQCOND  FACTOR  =  ,  F10.4  / 

2  18H  QRAD  FACTOR  -  ,  F10.4  ,  5X.15HQFMF  FACTOR  =  ,  F10.4  / 

3  18H  PRESS  FACTOR  =  ,  F10.4  ) 

-  CONVERSION  FOR  RADIUS 

FACT  1  =  SQRT (RADUS/ 12 .0) 

WRITE(6,542) 

542  format; 


c 

41H 

TIME 

VI L  ALT  HT 

PT 

1 

38H 

QRAD  QCOND  QFMF 

BP 

2 

4 1 H 

SEC 

FPS  KFT  BTU/LB 

ATM 

3 

38H 

. BTU/LB/F  1**2 . - 

371  NTH=NTH+ 1 

- - - SURFACE  BOUNDARY  CONDITIONS  T > ME-TABLE 

NC  =  FLAG  TO  INDICATE  LAST  LINE  OF  T I MF  TABLE 


TTH  = 

TIME 

THE  = 

OPTION 

1 : 

RECOVERY  ENTHALPY 

2: 

SURFACE  TEMPERATURE 

3: 

RADIATION  VIEW  FACTOR 

XQRAD 

=  OPTION 

1 : 

RADIANT  ENERGY  FLUX  TO 

SURFACE 

2: 

SURFACE  RECESSION  RATE 

3: 

RADIANT  ENERGY  FLUX  TO 

SURFACE 

XQCO  = 

OPTION 

1 : 

CONVECTIVE  ENERGY  FLUX 

TO  COLD  SURFACE 

2 : 

<  0.0  INVOKFS  OPTION  2 

3: 

-  0.0  INVOKES  OPTION  3 

XQFM  = 

OPT  1  ON 

1 : 

free  molecular  energy  flux  to  surface 

2: 

BLANK 

3: 

BLANK 

TP  1  = 

OPTION 

1 : 

SURFACE  PRESSURE 

2; 

BLANK 

3: 

Bl  ANK 

TALT  =  ALTITUDE 
TVEL  =  VELOCITY 

TBRP  a  BLOWING  REOUCIION  PARAMETER  IF  TIME  DEPENDENT. 

BLANKS  WILL  BF  FILLED  BY  CONSTANT  VALUES  FROM  ABOVE 
OR  BY  PUTZ  AND  BARTLETTE  CORRELATION. 


C 


READ (5, 5  /7)  NC, T Til  ( NT H) , THE ( NTH) ,XQRAD,XQCO,XQFM,TP I (NTH) , 

1  TAIT(NTII)  ,  IVFL(NTH)  ,  T  8RP  (  NTH ) 

577  FORMAT; I  1  .F9.2.F TO. 1 ,3F 10.2.F 10.5.F6. 1 ,F7. 1 ,F7.2  ) 

WRITE (6, 543)  T  f  H( N I II) . TVEL (NTH ) , TALT ( NTH) , THE ( NTH) , TP  I  ( NTH) , 
1  XQRAD ,XQC0 ,XQFM , TBRP ( NTH ) 

543  FORMAT; 1X.F7.1  ,F8.0,F8.2,F11.  1  ,F  10 . 5 , F9. 1,F8.1,F8.1,F6.1) 

- .  ADJUST  TIME  TABLE  VALUES  USING  FACTORS 

TP  I  (  NTH )  =  TP  I  (NTH)  **QF  P 


INP0U518 
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XQFM  =  XQFM*QF  f 
TQR(NTH)  =  XQRAD*F ACT 1*QFR 
TALT(NTH)  =  T ALT ( NTH )» 1000 . 0 
TCM(NTH)  =  XQC0*QF C/FACT  1 
If (XQFM. LE. 0.0)  GO  10  190 
IF  (XQFM/XQCO.GT. 10.0)  GO  TO  190 

C  . BRIDGING  FRFE  MOLECULAR  TO  CONT I NUUMCONVECT I  ON 

TCM(NTH)  =  TCM( N HI ) * ( 1 . 0  -  EXP ( -XQFM/TCM( NTH ) ) ) 

190  IF(THE(NTH) .NE.0.0)  !CM{ NTH) =TCM( NTH) /THE ( NTH ) 

IF  (TBRP(NTH)  .EQ.O.O)  TBRP(NTH)  =  BRP 
C  (  II  =  PROBLEM  OPTION  SELECTION  BASED  ON  TIME-TABLE  INPUT) 

I  1=1 

IF (TCM(NTH) . GT.O.O)  GO  TO  343 
I  1=2 

IF  (THE(NTH) .Eq.O.O)  I  1=3 
343  I  OPT ( NTH )  =  I  I 

IF  (II .EQ. IS)  GO  10  346 
NOPT=NOPT+1 

IS=II  I NPOU53 1 

(1/16/87)  TIME-TABLE  I  ENGTH  CHANGED  TO  120 


IF(NTH.LE. 120)  GO  TO  346 
WR ITE(6,544) 

544  F ORMAT (  35H  — --TOO  MANY  TIME  TABLE  POINTS -  ) 

STOP 

346  IF(NC.LE.O)  GO  TO  3/1 
I L0( 1 )=1 

I H I ( 1 ) =NTH  INPOU534 

I R ( 1 ) = I L0( 1 )  INPOU53S 

CALL  LCOUNT (-4,LCT,NPC) 

WRITE  (KOUT, 534)  INPOU537 

534  FORMAT  (1H  //23X40H--- T I  ME  DEPENDENT  BOUNDARY  COND I T I ONS---/ irt  )  I NPOU  96 

IS=0  I NPOU538 

DO  3476  1=1. NTH  I NPOU539 

11  =  1 OPT(  I  )  INPOU54C 

IF  ( I  I .EQ. IS)  GO  TO  349 
I  S=  I  I 

GO  TO  (3471 ,3472,3473) , I  I  INPOU543 

3471  WR I TE ( KOUT , 535 )  INPOU544 


535  FORMAT  ( 9X ,4HT I  ME ,8X ,  4HPR0B ,3X  ,  8HREC0VERY , 3X .9HRAD I  AT  I  ON , 4X, 4HHEAT  I  NPOU  97 
15X.8HPRESSURE  ,3X, 711111  OW I  NG/9X ,  5H  ( SEC )  ,  7X  .4H0PTN  ,  3X,  8HENTHALPY,  3X,  INPOU  98 
29HHEAT  RATE , 4X , 5HC0E I  1  , 14X , 9HREDUCT I ON/28X, 8H( BT U/LB ) ,2X , 1 1 H ( BTU/S I NPOU  99 


3Q  FT- , IX, 10H(LB/SQ  F I - , 3X, 5H( ATM) , 3X, 9HPARAME TER  /40X.7HSECOND) ,  INPOUIOO 
44X , 7HSECONO ) )  INPOUIOI 

GO  TO  3474  INPOU545 

3472  WR I TE (KOUT  ,552 )  INP0U546 

552  FORMAT  ( 9X , 4HT I  ME ,8X  ,  4HPR0B , 3X . 7HSURFACE ,4X , 7HSURFACE/9X ,5H ( SEC ) ,  INPOU108 

17X,4HOPTN,5X,4HTEMI*  ,5X,9HRECESSI0N/28X,7H(DF.G  ft)  .6X.4HRATE/38X,  INPOU109 

2 1 0 H ( M I LS/SEC )  )  I  NPOU 1 10 

GO  TO  3475  INP0U547 

3473  WR I TE (KOUT ,556)  INPOU548 

556  FORMAT  ( 5X.4HT IMF ,8X ,4HPR0B ,5X , 4HVI EW , 5X ,9HRA0 1  AT  1 0N/9X, 5H(  SEC) ,  INP0U116 

17X,4H0PTN,4X,6HFACT0R .4X.9HHEAT  RATE/38X, 1 1H(BTU/SQ  FT-/40X,  I NPOU 1 1 7 

27HSEC0ND ) )  I NPOU 1 18 

GO  TO  3475  I NPOU549 

349  GO  TO  (3474,3475,34/51.11  INPOU550 

C  .  DtSPlAY  CONVERTED  TIME-TABLE  VALUES 

3474  WR I TE (KOUT  ,536)  II M( I ) , 1  I , THE (  I  ) , TQR( I ) , TCN( I ) , TP  I ( I ) ,TBRP( t )  INPOU551 

GO  TO  3476  INPOU552 
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3475  WRITE (KOUT ,536 )  T1H( I )  ,  I  I ,THE( I ) ,TQR( I ) 

3476  CONTINUE 

C 

C  END  TIME-TABLE  PROCESSING 
C 

C  . CONDUCTIVITY  TABLES  FOR  GAPS  (UP  TO  FOUR) 

C  NNGC1 ,GC2 ,NGC3 ,NGC4 ,  =  NUMBER  OF  TABULAR  VALUES 

C  TCONI  =  TEMPERATURE  VAl  UES  OF  ITU  TABLE 

C  CONDI  =  CONDUCT  I VI I Y  VALUES  OF  I TH  TABLE  CORRESPONDING  TO  TCONI 
C 

IF  ( ICOND.EQ.O)  GO  TO  120 
IF  ( IC0ND.GT.4)  GO  10  120 
READ  (5,587)  NGC1 

READ  (5,580)  ( TCON  1  ( l ) .CONDI ( I ) , I =1 ,NGC1 ) 

J=1 

WRITE (6, 589)  J , ( TCON  » i I ) ,COND 1 ( I ) , I  =  1 ,NGC1 ) 

IF  ( ICOND.EQ. 1 )  GO  10  120 
READ  (5,587)  NGC2 

REAO  (5,588)  ( T C0N2 ( I ) , C0N02 (  I ) , ( =1 , NGC2 ) 

WRITE(6,589)  J,(TC0N2(  I ) , C0ND2 { I )  , !  =  1 , NGC2 ) 

IF  (ICOND.EQ. 2)  00  10  120 
READ  (5,587)  NGC3 

READ  (5,588)  ( T CON 3(1), C0ND3 ( I ) , I  =  1 , NGC3 ) 

J=3 

WRITE (6, 589)  J, ( TCONI ( I ) ,C0ND3 ( I ) , 1=1 ,NGC3) 

IF  ( ICOND.EQ. 3)  GO  10  120 
READ  (5,587)  NGC4 

READ  (5,588)  ( T C0N4 ( I ) , C0ND4 ( I ) , I  =  1 , NGC4 ) 

J=4 

WRITE (6, 589)  J, ( ICONU( I ) ,C0ND4( I ) , 1=1 ,NCC4) 

120  CONTINUE 
C 

IF  (BRP.LT.O.O)  WRI 11(6,539) 

539  FORMAT ( 1 H  /9X ,43HCH/CHO  FROM  PUTZ  AND  BARTLETTE  CORRELATION  ) 

IF  (BRP.CE.O.O)  WRI IF (6,537) 

537  FORMAT  { 1H  /9X  .  69HCII/CH0  =  PH  I / ( EXP ( PH  I ) - 1 .  )  WHERE  PHI  =  ?.*BRP*M 
1D0T/CH0 .  BRP  IN  1ABI  I  ) 

I  F ( IER0S.NE.0)  WRI II  (6,583) 

583  FORMAT (50H  LUNOEI  I  &  DICKEY  MECHANICAL  EROSION  CORRELATION  ) 

I F ( ISR.NE.O)  WR I TE ( 6 . 584 ) 

584  F  QRMAT  ( 50H  ZERO  SlIRI  ACE  RECESSION  OPTION  IN  EFFECT  ) 

CALL  L COUNT  (  - 1  ,LC1  ,NI‘G) 

IF  (NC.GT.1)  GO  TO  143 
DO  3731  1  =  1  , NTH 

3731  TP  I (  I  ) =ALOG( AMAX 1 ( IP  I  (  I  )  ,  ,000001 ) ) 

SURFACE  CHEMISTRY  DAI  A  LEAD  LINE 

- - REAO  OAIA  1  OR  SURFACE  EQUILIBRIUM  TABLE 

CMHS  =  CM/CH  RATIO 

VFZ  =  OPTION  1  VIEW  fACTOR 

BREX  =  F XPONF.NT  USM)  10  ADJUST  INPUT  CONVECTIVE  TRANSFER 

COEFFICIINI  llttlCH)  FOR  RADIUS  CHANCE  DUE  TO  ABIATIVE 
NR  =  ONE  PUNCH  CAMS  I  OR  RADIUS  RATIO  CORRECTION  PER  ABOVE 
NST  a  BLANK 

NAPE  x  FLAG  TO  READ  II  PRIMEE  IN  "NEW  FORMAT"  SURFACE  CMEH.  TABLE 
NFIS  =  FLAG  TO  INVOKI  "FISSURE  MODEL" 

SWELL  a  CHAR  SWEUS  PKOPORT I ONAI.  TO  CONSTANT  K  IN  FOLLOWING 
SWELL  =  K ( OH  I G  SURF  -  SWELL) 


I NPOU553 
INP0U554 


INP0UTO3 

INP0U104 

INPOU557 

I NPOU560 
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5796 

2901 

2906 


2907 

2908 


2909 

2910 


2902 

2912 


CMHS,VFZ,BREX,NR,NST,NBPF ,NF IS, SWELL 
.0,1  1,3(9X,I1),F10.0) 


2901 


TO 

TO 


2909 

2907 


C 

C 

C 

C 

C 

C 


READ( INPUT, 5796) 

F  ORMAT ( 2F 1 0 . 0 , F  9 
NF  IS=NF IS+1 
IF(NST.GT.O)  GO  TO 
CMH  =  CMHS 
GO  TO  2902 
IF  (KNST.NE.777)  GO 
IF  (CMH. NE. CMHS)  GO 
WRITE(K0UT,2906) 

FORMAT (//10X50HSURF ACE  TABLES  ARE  THE  SAME  AS  IN  PREVIOUS  PROBLEM) I NPOU570 
CALL  L COUNT ( 3 ,LCT ,NPG) 

GO  TO  2912 
WR I TE ( KOUT ,2908) 

FORMAT (//10X.72HPREV I OUS  SURFACE  TABLES  CALLED  FOR  BUT  CM/CH  RATIO 
1  HAS  CHANGED,  QUIT  JOB//) 

STOP 

WRITE(KOUT,2910) 

F  ORMAT ( // 10X , 70HPRE V  I OUS  SURFACE  TABLES  CALLED  FOR  BUT  THIS  IS  FIR 
1ST  PROBLEM,  QUIT  JOB//) 

STOP 

KNST=777 

IF  (NR.GT.O)  NR= 1 
IF  (NST.LE.O)  GO  TO  3285 
IF  (NSEN)  2613,2861,2813 

WLS  =  SAVED  TEST  VALUE  OF  WLQ 
IP,  IPN=PRESSURE  INDEX 
I , 1 N, J=UT I L I TY  INDEX 

NSEN=NUMBER  OF  ENTRIES  IN  CURRENT  EDGE  TABLE 


INP0U561 
I NPOU14 1 
I NPOU562 


INPOU565 


I  NPOU571 
I  NPOU572 
I  NPOU573 
INPOU574 
I  NPOU575 
I  NP0U576 
I  NPOU577 
I  NPOU578 
I  NPOU579 
I NPOU580 


3285 


C 

C 

C 


WLS  =  -1 
NSEN=- 1 
I  P  ~  1 
IPN=1 
1  =  1 
IN=  1 

PROCCSS  SURFACE  THERMOCHEMISTRY  TABLES 


I NP0U590 
INPOU591 
I NPOU592 
I NP0U593 
INPOU594 


J=0 

2800  J=J-H 

IF  (NBPF.NE.O)  GO  10  28001 

C  . .  RE AO  S1AN0AR0  SURFACE  THERMOCHEMISTRY  TABLES 

C  USE  EDGE  TABLES  WHIN  CM/CH . NE . 1 .0 


C 

EDGE  ENTHAl  PY  TABLE 

SURFACE  THERMOCHEMISTRY 

c 

PSV  = 

PRESSURE 

1 

PRESSURE 

c 

OMS  = 

— 

1 

8  PRIME  GAS 

c 

TLMC  = 

— 

1 

B  PRIME  CHAR 

c 

TTS  = 

TEMPERATURE 

1 

SURFACE  TEMPERATURE 

C 

WLQ  = 

UNEQUAL  Dili  US  ION  EXPONENT 

1 

UNEQU.  DIFF.  EXP. 

c 

TCHEM= 

SUMMATION  OF  /ll*HI»«TW 

1 

SUMMATION  OF  ZIW*HI‘*»TW 

c 

TSEN  = 

ENTHALPY  OF  EDGE  GASES 

1 

ENTHALPY  OF  WALL  GASES 

c 

JNG  = 

FLAG 

1 

FLAG 

c 

c 

TSURF  = 

UNUSED  ALPHANUMERIC 

1 

SURFACE  SPECIES  NAME 

c 

l  =  PYROLYSIS  GAS  HA  11 

c 

J  =  CHAR  RATE 

c 

K  =  PRESSURE 

C 


I  NP0U595 
INP0U596 
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READ( INCH.  5/91)  PSV ,DMS , TLMC( J , I , IP) , TTS( J, I , IP) ,WLQ, TCHLM( J, I .IP) 
1 ,TSEN( J) , JNG.TSUKf ( J) 

5791  FORMAT  ( 3F8. 5 ,F 9 .4 ,1  5 . 3 ,2F9 . 3 . IP ,A6 ) 

TBPF { J , I , I P ) =0 . 

GO  TO  28002 


c  -  READ  "NFW  FORMAT"  URf ACE  THERMOCHEMISTRY  TABLES 

C  TBPF  =  B  BRIME  FAIL 


28001  READ( I NCH ,5788)PSV,I)MS , TLMC( J, I , IP) ,TTS( J, I , IP) ,WLQ.TCHEM( J, I .IP) 
1 ,TSEN( J) , JNG.TSURF ( J) , TBPF ( J , I .IP) 

5788  FORMAT (3F8.5,F9.4,F5.3,2F9.3,12,2X,A4,4X,E10.3) 

28002  IF  { JNG.LE  .0 )  1SIJRIM)  =  BLANK 
IF (TTS( J, I , IP) )  2803.2832,2801 

C  -  CONVERT  TO  DEGREES  FAHRENHEIT 

2801  TTS( J, I , IP)=TTS( J,  I , IP)*1 .8 

TCHEM( J, I  .IP) =TCH£M( J  ,  I , IP)*1 .8 
TSEN( J)=TSEN( J)»1 .8 
C 

GO  TO  2805 

2803  TTS(J, I , I P  )  =  -TTS ( J , I  ,  IP) 

2805  IF  (WLS.LT.0.0)  CO  10  2809 
IX=4 


I NPOU598 
I NPOU599 
INPOU130 
I  NP0U600 
I NP0060 1 


INPOU602 
I NPOU603 
I NPOU605 

I NPOU609 

INP0U610 

INPOU611 

INPOU612 

I NPOU6 1 3 
INP0U614 


I F (WLS-WLQ)  2824,2811,2824 
2809  WLS=WLQ 

2811  IF  (NSEN.GE.O)  CO  TO  2828 
IF  (JNG.LT.O)  GO  TO  2800 

3  (  NSEf<  =  NUMBER  OF  INIRIES  IF!  CHEMISTRY  TABLES  ) 

NSEN= J- 1 
I  SEN(  I P ) =NSEN 
IF  (NSEN.LE. 1)  GO  TO  2820 
DO  2806  L=  1  , NSf N 
TTSEN{L . IP)=TTS(l  ,  1  ,  IP) 

TZSE  N ( L  ,  I P ) =T  CUE  N ( I  .  1  ,  IP) 

2806  THSEN(1.  .  IP)=TSEN(t  ) 

CALL  SLOPQ ( NSE  N , T  TSI  N( 1 , IP) ,THSFN( 1 , IP ) .TCPS£N(  1  ,  IP)  ) 

CALL  SL0PQ1 NSE N. T1SI  N( 1 . IP) ,TZStN( 1 . IP) ,1CZSEN( 1 , IP) ) 

LLL  =  (  NSEN-  1 )  / 3 ♦  1 
IF  (IP.NE.  1)  CO  TO  28137 
2813  CALL  L COUNT ( 1 1+2*NR ,1  CT ,NPG) 

WRITE  (KOUT ,538) 

WRITE  (KOUT  ,579  7  )  CMH.WLQ,  VFZ 

5797  F ORMAT ( //6X, 45HRA T 10  Ot  MASS  TO  HEAT  TRANSFER  COEFFICIENTS  =,F6.3/ 
1  6X.28HUNEQUAL  DIFFUSION  EXPONINI  = , F  6 . 3/6X , 29HN0H I NAL  SURFACE  VIE 
2W  FACTOR  =,F6.3.IUI  (OPTION  1)} 

IF  (NF  IS.EQ. 1)  GO  to  28130 


I  NPOU617 
INPOU618 


I NPOU622 


I  NPOU625 
I  NPOU626 
I  NPOU627 
I  F.-POU628 
I  NP0U629 
I  NP00630 


I NPOU633 
I NPOU634 
INPOU142 
INPOU143 
I  NP0U144 


C 

28130 

28133 


WRITE(KOUT, 28132) 
CO  TO  28133 


WR  I  TE (KOUT ,28612) 

CONTINUE 
IF  (NR. IE .0)  GO  TO  2H 18 
WRITE  (KOUT, 5799)  URF X 

5799  FORMAT  (6X.66HHFAT  TRANSFER  COEFFICIENT  MULTIPLIED  BY  (R  INITIAL/R 
1  CURRENT ) ••EX./8X.  HUIWHIRE  EX  -  ,F8.5  ) 

GO  TO  2815 


INPOU639 

INPOU6UO 
INPOU64 1 


1  NPQU 19  7 
INPOU644 


2818  WRITE  (KOUT, 5790)  INPQU645 

2615  IF  (SMELL .NF .O.o)  GO  10  28134 
WR  ITE(KOUT  ,28  1  3E> ) 

GO  10  28137  INP0U649 

C 
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WR I TE (KOUT ,28138)  SWI  I  I 
IF  (NST.GT.O)  CO  10  /43 
CAIL  LC0UNT(lLl+6,l  Cl ,NPG) 

WR  I  TE (KOUT  ,5792  )PSV 

5792  FORMAT (//6X.3HP  -,F9.4,4H  ATM//6X , 3 ( 25H TEMPERA! UHE  EDGE  ENTH 
16X,3(25H  (DEC  R)  AT  T-WALL  )) 

00  2819  LL  =  1 ,Ll  L 

WRITE (KOUT, 5 798)  ( T 1ST  N(L, IP) , T MSEN(L , IP) ,L=LL .NSEN.LLu) 
TORMAT  (6X,F9.2,4X,F9.2,3X,F9 

T2,3X,F9.2,4X,F9.2) 

GO  TO  2862 


28  134 
28137 


2519 

5798 


I  NPOU650 


I  NP0U654 
)  / I NPOU 1 3 1 
INPOU132 
I NPOU655 
I NPOU656 
2,4X,F9. I NP0U145 
I NPOU 146 
INPOU657 


2820  NSEN--0 
I  X-3 

IF  (CMH.NE. 1.0)  GO  10  2824 
I  X=2 

IF  (WLQ.EQ.O.O)  GO  TO  2826 
2824  WRITE  (KOUT ,5793)  IX 
5793  FORMAT  ( //6X , 37HBAD  SURFACE 
STOP 


EQUILIBRIUM  TABLE  OF  TYPE. 12) 


I NP0U658 
I NPOU659 


INP0U133 
I NPOU664 


2826  IF(IP-l)  2862,2861,2862 
2828  IF  ( TTS (J,l  ,  IP)  .fQ.O.O)  GO  TO  2832 
IF  (PSV.NE.TPRf IP) )  CO  10  2832 
I F ( DMS-TMG( I , I P ) )  2834 ,2800,2834 
2832  IPN-lP+1 
NMC( I P ) = I 
NCS  =  I 
I  N  =  0 

NSEN^-NSEN 
2834  I N= I N* 1 

NHI (  I  ,IP)=J-1 
NMC- J- 1 

CALL  ORDERD(NMC, Tl  MC(  1 , I , IP) , 12) 

IF  (NBPF.LE.O)  CO  TO  3852 
CALL  SEQUA5 ( NMC , I / , 1 1 S ( 1, I .IP) ,ICHEM( 1, 
K 1, I  ,IP)  ) 

CO  TO  4853 


I NPOU665 


l  NP0U669 
INPOU670 

I NPOU67 1 
INPOU672 
INP00673 
INPOU674 
!  NPOU675 
I NPOU676 


,  IP)  ,TSEN( 1) ,TSURF( 1) ,TBPF INPOU678 

l NPOU679 
I NPOU68O 


3852  CONTINUE 

CAIL  SEQUA(NHC, 
4653  CONTINUE 
I  X  =  0 
IC=  1 

BPC=THC( I , IP) 
NLO(  I  ,  I  P  )  »  1 
KMI  {  I  ,  I  P  ) a  1 


/,  1  1S(  I  ,  I  ,  IP)  ,TCUt'M(  1  ,  I  ,  IP)  ,  TSEN(  1 )  ,  T  SURF  (  1  )  ) 


I NP0U68 1 
I  NP0U682 
I NPOU683 
I NPOU684 
I NPOU685 
I NP0U6S6 
INPOU687 
INP0U688 


FIRST  STEP  Of  CAICUIAIING  QCH(  M/KUCH : 
TCHEH  =  ( 8 1 G*MG  ♦  B'C»UC  -  B'C^HW)  - 


( 2  I  E  -  2IW)FI1«»TW 


00  2852  K -  1 , NHC 
UPaBPC*TLHC(K , I . I P ) 

II  (Nf IS.tQ.  1)  GO  to  20  340 
HGAitSEN(K) 

CO  TO  28342 
28340  CONTINUE 

CAl  L  LOOK)  2  .  I T  S  (  X  ,  1  , lf‘). Ill  ,  T  HO.  0,0,0,  MCA,  CT  1,1) 
ltO.A  =  MGA-»Df  LMG 

28  342  CAl  L  LOOK  (4.  US  (K  .  i  ,  I  P  )  ,  1 12(  1 . 2 )  .  IMZ  (  1 .2 )  ,0 .0 ,0 .  HCH  ,CT2 ,  1 ) 


I NP0U669 
I NP0U690 


1NPOU693 
I NP0U694 
INP0U695 
I NP0U696 
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HCH=HCH+DH2  1NPOU699 

If  (NSEN.ME.O)  00  TO  ?838 
NE=TCHEH(K. I , IP) 

C  - SIHPl  IT  ill)  SURE  ACE  ENERGY  BALANCE 

C  USE  FOR  EQUAL  DIFIUS10N  COEFFICIENT  CASES  AND  WHEN  CH/CH=1.0 

C  TCHEH  =  B'G*HG  +  B'r.'liC  -  B**HW 


C 

TCH£H(K.  I  ,  1P)=8PG*'HGA+TLMC(K,  I  .IP) *HCH-8P*TSEN(K )  INP0U702 

GO  TO  2840  I NPOU703 

2638  CALI.  OGLE  ( 1 , TTS( K .  I  .  IP)  .HZ,  ISErH  I  f )  ,  TTSEN{ 1 ,  I P ) ,  7ZSEN(  1  .  IP ) .TCZSEN I HPOU704 
HI,  IP))  I NP0U705 

CALL  OGLE  (1,TTS(K,I  . I P ) , HE  .  I SE N{ I P ) , T !Si N( 1 , i P ) , THSEN{ 1 , i P ) tTC?SEN I NP0U706 
1(1,  Hi)  INPOU707 

C  -  COMPLETE  SURFACE  ENERGY  BALANCE 


C  USE  FOR  UNEQUAL  OIEEUSION  COEfflCIENT  CASES 

C  TCHEH  =  B'G*KG  ♦  B'C*HC  -  3*»HEW  «■  Z!E*Hi**TW  -  ZIW*HI«*TW 

C 

TCHEK(K, i . IP)=8PC«HCA+!LMC{K, I , IP)*HCH-8?*T3EN(K)+HZ-TCHEM{K, 1 , IP} SNPOU7G8 


2840  TSEN(K)=HE  INP0U709 

IF  (TSURF(K) .NE.BcANk)  GO  TO  2844 
WLOJ I , IP)=K+1 

IF( IG+IX-1)  2846,2646.2824  INP0U7T2 

2844  IX=1  INPOU713 

2846  IF  (X.LE.IG)  GO  TO  285? 

IF ( TTS(K , I , 1PJ.GI.T l  S(K  - 1 , 1 ,IP))  GO  TC  2851 
I G=NHC 

GO  TO  2852  INPOU717 

2851  KHI ( I , IP)=K  I NPOU718 

2852  CONTINUE  INPOU719 

LLL=(NKC-1)/2+l  I NP0U720 

CALL  L COUNT (LLL+6,LCT,HPG) 


WRITE(KOUT,5795) IHG( I  ,IP),TPR(lP),((TTS(L,l,iP), TLMC(L , I , I P ) , TCHEH i NPOU722 
1(L,I , IP),TSEN(L)  ,L-EL ,NMC,LLL ) ,LL=1 ,LLL)  IN 


C  (1/30/87)  BELOW  FORMAT  CHANGED  TO  EXPAND  CHEM.PROD.  COLUMNS. 
C 


5795  FORMAT ( //6X , 14HM-00 1 -GAS/CM  = , F  7 . 4 , 8X ,  10HPRESSURE  =,F11.6,4H  ATM// 

T6x,2(5H  TEMi>,5X,2/HM-(>or-  CHEM.PROD  H  WALL  ,3X)/3X,  INPOUT38 

22(38H  (DEG  R)  CHAR/CM  (8TU/I  B)  (BTU/LB) ,2X)/ { 5X ,F8 , 2 ,2X, 

3  F7.4,  TX,m  .2,  IX,  f  6 . 1 ,2X,F8 . 2 , 1X,F8 . 4 , IX ,F 1 1 . 2 , IX ,F8 . 1 ) ) 


C  FINISH  QCHEM/Rl’CH  CA1CULATI0N 
C  (TCHEM1  =  CM/CH  *  TCHEM  -  HW) 
C 


DO  2856  K= 1 , NMC 

TCHEM(K , I , I P ) =CMH*  T  CHEM( K , I , IP)-TSEN(K) 

IF  (K.LT.NLO( 1  ,  IP)  )  GO  TO  2856 
C  TAKE  NATURAL  LOG  OF  B'C 

TLMC(K , I , I P ) =ALOG( AHA  'J(TLMC(K, I , I P ) ,.000011) 

IF  (NBPF.LE,  )  GO  TO  2856 
C  TAKE  NATURAL  LOG  OF  B’FAIL 

TBPF (K  ,  I , I P ) -ALOC( AMAX1 ( TBPF ( K , I , I P ) , 1 . E- 12 ) ) 
2856  CONTINUE 

IF(TTS( J,  I  ,  IP) )  2862,2870,2862 

C  - - WRITE  OP  I  IONS 

2861  CALL  LCOUNT (  10+2*NR ,L  CT ,  NPu) 

WRITE  (KOUT.538) 

WRITE  (KOUT ,5794 )  VT / 

5794  FORMAT  (//6X.74HEQUAL  MASS  AND  HEAT  TRANSFER  COEFF 


I  NPOU724 
I NPOU725 


I NP0U730 
I NPOU74 1 


I NPOU743 
I NPOU744 

ICIENTS  AND  EQUAI NPOU134 
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1L  DIFFUSION  COEFF 1 C ! CN T S/6X .29HN0M 1 NAL 

SURFACE  VIEW  FACTOR  =, 

INPOU135 

2F6.3) 

INPOU136 

IF  (NF IS.EQ. 1 )  GO  TO  28610 

WRITE(KOUT, 28132) 

GO  TO  28613 

INPOU747 

28610 

WRITEfKOUT, 28612) 

1 NPOU748 

28613 

IF  (NR.LE.O)  CO  TO  2863 

WRITE (KOUT ,5799 )  BRCX 

GO  TO  2715 

1 NPOU753 

2863 

WRITE  (KOUT, 5790) 

INPOU754 

2715 

IF  (SWELL. NE. 0.0)  GO  10  2734 

WRITE (KOUT, 28 136) 

GO  TO  2737 

i  NPOU757 

2734 

WRITE  (KOUT, 28 138)  SWFl  1. 

INPOU758 

C 

-  OPTION  TO  R! USE  PREVIOUS  CHEMISTRY  TABLES 

2737 

IF  (NST.GT.O)  GO  TO  743 

2862 

TPR ( 1 PN ) =PSV 

1  NPOU760 

TMG( IN, IPN)=DMS 

1  NPOU76 1 

TLMC( 1 , IN, IPN)=TLMC( J. I  ,  IP) 

INPOU762 

TBPF (  1  ,  IN, !PN)=TBPF( J,  1  , IP) 

1  NPOU763 

TTS  (  1,  IN, IPN)=TTS  ( J ,  1  ,IP) 

1  NPOU764 

TCHEM( 1, IN, 1 PN) =TCH£M( J , l , IP) 

1  NPOU765 

TSURF ( 1 ) =TSURF ( J ) 

l  NPOU766 

TSEN( 1 )=TSEN( J) 

1  NPOU767 

J=1 

1 NPOU768 

I  =  1  N 

1 NPOU769 

C 

(IP  =  PRESSURE  INOEX  ) 

1  P= I PN 

1  NPOU770 

GO  TO  2800 

INPOU771 

c 

END  LOOP  TO  PROCESS  SURFACE  CHEMISTRY 

DATA 

c 

2870 

NPR= 1 P 

1  NPOU772 

IR(  12 ) -1 

!  NPOU773 

1  L0(  1 2 )  =  1 

1  NPOU774 

IHI ( 125=1 

INPOU775 

c 

TABLE  PRESSURES 

00  2872  1  =  1  ,  IP 

INPOU776 

2872 

TPR (  1  ) =ALOG( TPR (  1 ) ) 

1  NPOU777 

1  R  (  1 3  )  =  1 

1  NPOU778 

IHI ( 13)=NPR 

1  NPOU779 

1  L0(  1  3  )  =  1 

INPOU780 

743  CALL  D I K I (8A.BB.BC. 1  SE  N  ,  TL  ,  TH  ,  0  ,  J  TBl. ) 


C 

C  -  TO  ACTIVATE  SPECIAL  HUNTER  SUBROUTINE  MERGER  PROCEDURE  BY  CCC. 

C  (12-28-87) 

C  .  JTBL  MUST  EQUAL  0  OR  1  TO  READ  IN  VALUES  BELOW  - 

C  ,  IQLORT  »-  0;  NO-OOftRF-OH  ON-ON  QRAO  -OOE- -TO  -BLOW  I  NG  EFFECT-S - 

C  -FBLOPT  »  1  ;  CORRECT  ■  SUK-E-.- ■-RAO-'-N--H  ,  T  .  USING  Ain  ABLATION  6PEGIE6-- 

C  ■4BL0PT  a;"G0RB£C7'"-&Wf-;  •  R-AO  ■'  N  ■  H  .-T-r-  US-H4G— CARBOH-A8LAT  I  ON  SPEC' PE  8- 

C  IOPTN  =  0;  NO  MERGING  EVOKED.  J1BL  CAN  BE  0  OR  1. 

C  IOPTN  =  1;  USE  A  D I K I  - T  0- TABLES  TRANSITION  WALL  TEMPERATURE; 

C  TCRIT  REQUIRED. 

C  IOPTN  =  2;  USE  THE  WAIL  TEMPERATURE  AT  A  SPECIE  I  ED  BPRIME; 

C  BPCR I T  REQUIRED . 

C  IOPTN  =  3;  MERCE  USING  SLOPE  SEARCH  METHOD. 

C  TCRIT  =  TEMPERATURE  TRANSITION  CRITERIA. 

C  BPCR I T  =  FIND  TEMPERA  I URE  AT  B'  CRITERIA  FOR  TRANSITION. 

C  1  MSG  -  SWITCH  TO  PRINT  MESSAGES; 

C  =  0;  DO  NOT  PRINT  MESSAGES; 
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C  =  1;  PRINT  'MERGER'  MESSAGES  (TIME, ITERAT I  ON, MERGE  FACTOR); 

C  =  2;  PRINT  'MERGER'  MESSAGES  &  MERGE2  OR  MERGE3  MESSAGES. 

C  MITER  =  NUMBER  OF  ITERATIONS  BETWEEN  UPDATES  OF  MERGE  FACTOR. 

C  .  USE  BELOW  ONLY  IF  lOPTN  >  0 

C  TAOCN  =  O.O;  USE  MOO  I F I EO  HUNTER  EQN.  TO  FIND  NON-ABLATION  TEMP. 
C  >  0.0;  NON-ABLATING  MATERIAL  BELOW  TABCN . 

C 

C 


READ( 5 ,2000) I8L0PT, lOPTN, TCR I T,BPCRIT, IMSG, TABCN, MITER 
4  F  (  )BLORT,L-E.O)  WR  I  TE  (  6 , 2040 )- 
-IF(  IBLOPT.SQ.  1 )  WR  I  TE(  6, 2&Q0-)— 

-1f(  IBLOPT  .OE.g)  WfUTE(6,gO30) 

I F ( lOPTN. GE.1. AND. JTBL.GE.O)  GO  TO  2420 
I OPTN=0 
WR I TE ( 6  ,2300) 

RETURN 

2420  IF( IOPTN.EQ. 1)  WR I TE ( 6 ,2100)  TCR I T 
IF( lOPTN. EQ. 2)  WR I TE ( 6 ,2200)  BPCRIT 
I F ( lOPTN. GE. 3)  WR I TE ( 6 ,2500) 

I F ( TABCN .LE , 0 .0 )  WR I TE ( 6 ,2550) 

I F ( TABCN . GT . 0 .0 )  WR I TE (6 ,2650 J TABCN 
WR ITE(6,2600)MI TER 
C  WRITE(6, 2700) IMSG 
C 

2000  F  ORMAT ( 2  I  5 ,2F  10 . 4  , I  5, F 10.4, 15) 

•20-40-f  ORMAT- (  /-/  ,  ■  ■  NO  BLOW  I NG-  -Ef-F-EO-T  ON— SUR F  AGE--R A8-I AT4-VE . HEAT  TRANSFER  . 

*-rrt 

■2020  -  FORMA  T-(  /-/  ,  —  BLQW.LNG-44-F-E-C4-  QN-SUR^ACE-RAO  I  A-T-l  Vt  .HEAT  TRANSFER—1 

r1OS+NG-A IR  ABLAT  ION  &P-E-&4ES-, - 

0030 -F ORMA £(•/•/•, •'  -BLOW! NG  EFFECT  ON  SURFACE  ■  RADI ATI VE1  HEAT'  TRANSFER  ■  ’ 

-4-  ,7  OST NG-CAROQM— A8L AT  ION  SR6CI  ES  ■■'  ,/  ) 

2100  F  ORMAT ( '  0  I K I -TO- TABLES  MERGER  TEMPERATURE', 

1'  OF  1 , F 10 . 5 , 1  DEG  R  SELECTED.',/) 

2200  FORMAT('  SEARCH  FOR  MERGER  TEMPERATURE  AT  BPRIME  OF',F10.5, 

1 '  SELECTED.  '  ,/) 

2300  FORMAT (  1  0  I K I  -  TO- TABLES  MERGER  OPTION  NOT  EVOKED.',/) 

2500  FORMAT!'  SEARCH  FOR  MERCER  TEMPERATURE  BASED  ON  MINIMUM1, 

1'  SLOPE  DIFFERENTIAL. ' ,/) 

2550  FORMAT!'  COMPUTE  TEMPERATURE  FOR  NON-ABLATOR . ' , / ) 

2650  FORMAT!'  NON-ABLATOR  TEMPERATURE  OF  ’,F10.4,'  DEG  R  SELECTED.',/) 
2600  FORMAT!'  UPDATE  MERGE  FACTOR  Sc  NON-ABLATOR  TEMP.  EVERY’, 15, 

T  ITERATIONS.',/) 

C27G0  FORMAT!'  PRINT  MESSAGES  CODE  =  ',13,/) 

- - — ^ - - 

END 


I NPOU79 1 
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DSNAME  =  'BBE. CCC1 . SOURCE. CMA6.PDS(MAIN) ' 
DCB=(RECFM=FB,LRECL=80,BLKSIZE=6160) 


V0L=SER =080080 
01/19/88  019  14:41:17 


C  MAINLINE  DUMMY  ROUTINE  WHICH  DRIVES  CBM  AND  INPOUT  SUBROUTINES  MAIN  1 

1  CALL  INPOUT  MAIN  2 

CALL  CBM  MAIN  3 

GO  TO  1  MAIN  4 

END  MAIN  5 

C 


C  BLOCK  DATA  INITIALIZES  COMMON  VARIABLES  TO  ZERO.  DIMENSION  OF  X  AND 
C  Y  BELOW  MUST  BE  INCREMENTED  BY  ABOUT  20  FOR  EACH  OF  THEIR  VARIABLES 
C  WHOSE  DIMENSION  HAS  BEEN  INCREASED. 

C 

C  (1/20/87)  X , Y  RANDOMLY  DIMENSIONED  TO  40000  TO  ACCOMMODATE  CHANGE 
C  TO  MULTIPLE  SUBSCRIPTED  ARRAYS. 

C 

C  (1/29/87)  INCREASE  X  AND  Y  TO  ACCOMODATE  EXPANDING  ALL  ARRAYS. 

C 

C 

BLOCK  DATA 

C  COMMON  X( 80000) 

COMMON/OTPT/Y( 1500) 

DATA  I 

COMMON  /ATMOT/  Z( 22 ) , TMB ( 22 ) ,R ( 2 1 ) ,  PB ( 22 ) ,C1 ,C2 ,C3 , 

- L_ _ i  .  .  .ZM.RO  .CM  .GAM  ,RST  ,GO,PO,WO ,G01 _ 

_  DATA  Y/15(jO*0.07 

DATA  Z/  0.,  11019.,  20063.,  32162.,  47350.,  52429., 

1  61591.,  79994.,  90000. , 100000. , 1 10000. , 120000. , 150000. , 

2  1 60000 . , 1 70000 . , 1 90000 . ,230000 . , 300000 . , 400000 . , 500000 . , 

3  600000.  ,700000.  / 

4  , TMB/  288.15,  216.65,  216.65,  228.65,  270.65,  270.65, 

5  252.65,  180.65,  180.65,  210.65,  260.65,  360.65,  960.65, 

6  1110.65,1210.65,1350.65,1550.65,1830.65,2160.65,2420.65, 

7  2590.65,2700.65  / 

DATA  R  /  -6.5,  0.0,  1.0,  2.8,  0.0, -2 .0 ,-4.0,  0.0,  3.0,  5.0, 

9  10.0,20.0,15.0,10.0,  7,0,  5.0,  4.0,  3.3,  2.6,  1.7,  1.1  / 

DATA  PB/  1 . OOOOOE*00 ,2 . 2336  IE- 01,5. 40328E-02 ,8 . 56663E-03 , 

2 1 . 09455E-03 ,5 . 82289E-04 .1.79718F-04,  1 .02410E-05, 1 .62230E-06, 

32 .968 1OE-07 , 7 . 25820E-08 ,2 . 48870E-08 ,4 .99550E-09 ,3 .64600E-09, 

42 . 756 10E-09 , 1 .66320E-09 ,6 . 86940 E- 10,1 . 85920E- 10,3. 97770E- 1 1 , 

5 1 .08 140E- 1  1 , 3 . 405 13E- 12,1 . 17620E-12  / ,C8/3 . 280845 14/ 

6  , C1/0. 3048/, C2/1 .00E+03/.C3/1  8/ ,G01/32 . 174/ ,C7/ 1 . 00E-08/ 

7  , ZH/9.00E+05/,R0/6. 375605E+06/, GM/3. 98622 16E+ 14/, GAM/ 1 .4/ 

8  .RST/8.31432/ ,GO/9 .80665/  .PO/2 ■ 1 1622E+03/ .WO/28 .9644/ _ 

cnc 
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DSNAME  =  ' BBE.CCC1. SOURCE. CMA6.PDS( MERGER ) '  VOL=$ER=D8D080 

DCB= ( RECFM=FB ,LRECL=80 ,BLKS I ZE=6 160 )  01/13/88  013  14:11:55 

SUBROUTINE  MERGER ( F ACTOR, XTEMP ) 

C 

C  SUBROUTINE  TO  MERGE  HUNTER  CARBON  OXIDATION  MODEL  WITH 
C  CMA  SURFACE  THERMOCHEMISTRY  TABLES.  CONTINUITY  BETWEEN  THE 
C  TWO  ABLATION  CURVES  IS  FORCED  AT  THE  INTERFACE  TEMPERATURE  BY 
C  APPLYING  A  MULTIPLIER  TO  THE  HUNTER  MASS  LOSS  PARAMETER. 

C  THIS  IS  USED  BECAUSE  THE  MAXIMUM  HUNTER  MASS  LOSS  PARAMETER  IS 
C  0.1741  WHEREAS  THE  TABLE  VALUES  THAT  WERE  CALCULATED  BY  THE  EST 
C  CODE  HAS  A  MINIMUM  VALUE  OF  ABOUT  0.1750.  (THE  OXIDATION  VALUES 
C  IN  THE  TABLES  ARE  FROM  GE  DATA. 

C 

C  INPUT  IS  XTEMP  AND  OUTPUT  IS  FACTOR. 

C 

COMMON  KOUT, I  EX, DEN, VR 
COMMON  I  HI (76) , I L0( 76 ) , I R ( 76 ) ,TT2(60,20) , TCP (60, 20) ,TKP(60,20) .THZCBM  6 
1(60,20) ,TEP(60, 20) ,TTH( 120) ,THE( 120) , TQR( 120) ,TCM( 120) , TT 1  ( 60 )  INPOU  4 

2,THG(60) ,DH12(4) ,RECORD( 108) ,S0(40) ,RH0(20) ,TEPBF(60,20) 

COMMON  MATL( 101) ,DEL( 101) ,TA( 101) ,H( 101 ) ,RC{ 101) ,RA( 101) , 

1AREA( 101 ) ,EMA( 101 ) ,RAV( 101 ) ,LGAP( 101 ) ,QGEN( 101 ) ,GAP( 101 ) 

COMMON  ROA( 1000), ROB( 1000), ROC( 1000)  CBM  12 

COMMON  TPR ( 20 ) , NMG ( 20 ) , 

C  TMG(5,20) ,NL0(5,20) ,NHI (5,20) ,KHI (5,20) , 

1  TTSEN(30,20) ,THSEN( 30,20) ,TCPSEN( 30 ,20) ,TLMC(30,5,20) , ISEN(20) , 

2  TP  I ( 120) ,  TTS(30,5,20) ,TCHEM( 30,5,20) ,VFZ,CMH,TBPF (30,5,20) , 

3  NPR,NGS 

COMMON  LCT,NPG, I  I ,NBM,NUMN,NL ,DELHG,DELM,RFT,RHORA,RHORB,RHORC,TRACBM  18 
1CA.TRACB ,TRACC,RHOOA,RHOOB,RHOOC,EA,EB,EC,BA,BB,BC,PSIA,PSIB,PSIC,CBM  19 
2TRACM,PET,PETE,RSV,ETA,DTPR3,DTPR2,DTPRT,TPR3,TPR2,THZR0,THFIN,WT,CBM  20 
3 TMWT , GAMA , OMG ,NO,FJFH,FJFS,JF  , JFHP,JFH, INPUT,  DTH I N , BRP , HCONV , CBM  21 

4EPSW,TRES, INCH,DTHB,NN,NI ,NOI , CHCR I , PYCR I , TBRP ( 120) ,NR , 

5  TX( 30,6) ,F 1(30,6) ,F2(30,6) ,NCON,NBPF ,NF IS, BREX, SWELL 
COMMON  BBB( 10,6) ,EE( 10,6) ,FF( 10,6)  ,PSI ( 10,6) ,RHOO( 10,6) ,  CB 

XRHOR( 10,6) , 

1ROCOM(50,3) ,DHC( 10) ,DHV( 10) ,RHOC( 10) ,RHOV< 10) ,P( 10) ,PP( 10) , 

XTREF (  10) , 

2GA( 10) ,OMGA( 10), NF 1(10)  ,NLA( 10) ,TT5( 60,20) .TENT (60, 20) , 

XTi,8U(60,20)  , 

3TCBU(  30,10) ,X( 101 ) ,NDBU,NBM2 , TRAC( 10,6) ,NBUFT( 10) ,KNST, IBUG.TBUG, 

4  TALT ( 120) ,TVEL( 120) ,RRGAP( 101 ) ,AGAP( 101 ) , ICOND, I  EROS,  ISR, 

5  NGC 1 , NGC2 , NGC3 , NGC4 , TCON 1 ( 1 0 1 ) , TC0N2 ( 1 0 1 ) , TC0N3 ( 1 0 1 ) , TC0N4 ( 1 0 1 ) , 

6  CONDI ( 101) ,C0ND2( 101 ) ,C0ND3( 101 ) ,C0ND4( 101) , 

7  T HCONV ( 101 ) ,TEPSW( 101)  ,TTRES(  101)  ,TQ(  101)  ,TEPSO( 101 ) , IBF ,TL,THD, 

8  JTBL, IDRD.RHOCI (201) ,DTDT(201 ) ,RA1 ,RA2,RA3 

COMMON/OTPT /CPE ( 6 ) ,EM0(201 ) ,DEP(20 , 10) ,CNC( 101 ) ,CN( 101) ,Y1(4) , 

1  CNO( 101) ,T0(20) ,R0( 101 ) ,NISO(20) ,BR,CH,GS,SA,TB,TT,ASU,CMD,CMT, 

2  I  TS ,QRP ,RAD ,RAT ( 101 ) ,RSU ,CMDM,CMMT ,DCDT ,DEDT,D I DT ,DPDT , I TER.KSCT , 

3  PGPU ,PRES ,QRPT ,RADT,SNET ,DECOM,DEDTT ,OSDTB ,PGPUT ,QCHEM,QCOND, 

4  QCONV.QLOSS .SDNET ,  SUMQE ,THPRT ,TSAVE ,VELFS .DECOMT , 

5  PRSATM.QCHEMT .QCONDT .QCONVT ,QLOSST ,KK ,RR ( 101 ) ,DMDG( 101 ) , 

6  RON( 101) ,ROT( 101) ,DNCP(6) ,DR0T(6)  ,D1(4) ,FA,FB,FC,DTH,DTHC,DSI , 

7  DTA, GSM, COLD, GSMS,GSMT,GSM2T ,DSDT,POLD,TH,AFTFS,DSDTT, 

8  TEMP.BF ,LL ,LU,HE,HW 

C  .  NEW  COMMON  BLOCKS  ADDED  BY  CCC  (12/87)  FOR  MERGE  ROUTINES 

COMMON/MERGE/VRM.VRP , IMG, I  PR , I  1 , 1  3 
COMMON/OP T I  ON/ TCR I T , BPCR I T , TABCN , I  OP TN , I  MSG , M I  TER 
C  EQUIVALENCE  (DH1 ,DH12( 1 ) ) , (DH2,0H12(2) ) , ( TS,TA( 1 ) ) 

DIMENSION  Y2(48) ,D2(48) 


CBM  2 
CBM  3 
CBM  4 


CBM  5 
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CBM  106 

.  INTERPOLATE  ON  VMR ,  GAS  FLOW 

IF(NGS.LE.I)  GO  TO  200 

CALL  LOOM 15, XTEMP, TTS( 1 , IMG+1 , 1  PR) ,TLMC( 1 , IMG+1 , 1  PR) ,0,0,0,Y2(2) , 

1  02,1) 

CALL  LOOK( 17, XTEMP, TTS(1, IMG+1, I PR+1 ) ,TLMC( 1 , IMG+1, I PR+1), 0,0,0, 

1  Y2(4) ,02,1) 

BPG=Y2 ( 2 ) +VRP* ( Y2 ( 2 ) - Y2 ( 4 ) ) 

WRITE (6, 500) IR(13),VRM.VRP 
500  FORMAT('  *****  IR( 13)=* , 15, 

1  *  VRM  =  ' ,E12.5,  VRP  =',E12.5) 

I F ( NGS.LE , 1 )  GO  TO  550 
BP=BP+VRM*(BPG-BP) 

.  LOOK  UP  BPRIME  &  INTERPOLATE  ON  VRP  (LN  PRESSURE  RATIO) 

IF( IMSG.GE.3)  WR I TE(6 , 100)  BPCRIT 
100  FORMAT!'  **MRG**  BPCRIT  (INPUT)  =  \F12.5) 

IF( I0PTN.EQ.2)  GO  TO  550 

200  CALL  LOOK! 14 .XTEMP ,TTS( 1 , IMG, I  PR) ,TLMC( 1 , IMG, I  PR) ,0,0,0,Y2(3) , 

1  02,1) 

CALL  LOOK! 16, XTEMP, TTS{ 1 , IMG, I PR+1 ) ,TLMC( 1 , IMG, I PR+1) ,0,0,0,Y2(3) , 

1  D2, 1 ) 

BPEST=V2(3)+VRP*(Y2(5)-Y2(3)) 

BPEST=EXP( BREST) 

550  Y2( 1 ) =XTEMP 

CALL  OIK  I (PRES, BPO IK  I ,CH,Y2,0UM1 ,0UM2,-1 ,JTBL) 

BPD I K I -EXP ( BPD I K I ) 

IF ( I0PTN.EQ.2)  BPEST=BPCR I T 
FACTOR=BPEST/BPD IK  I 

I F (  lf'iSG.EQ.2)  WR  I  TE(6 ,600)BPEST,BP0 IK  I  , FACTOR 
600  FORMAT! 

1  '  **MRG**  BPEST  =',F12.5, 

1  '  BPOIKI  = '  , F  1 2 . 5 , ’  FACTOR  -'.F12.5) 

IF( IMSG.EQ.3)  WRITE(6,650) I  PR, I  MG , Y2 ( 3 ) , Y2( 5) , BPEST, BPO IK  I .FACTOR 
650  FORMAT!'  **MRG**  I  PR  = ' , I  3 ,4X, '  IMG  =',13,'  Y2(3)  =',£12.5, 

1  '  Y2(5)  =’  E12.5, 

!  /  «  #####  BREST  =  ,F 12.5, 1  BPOIKI  =',F12.5, 

1  '  FACTOR  =' ,F 12.5) 

RETURN 

ENO  CBM  1202 
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DSNAME  =  ' BBE . CCC 1 . SOURCE . CMA6 . PDS ( MERGE2 )  '  VOL=SER=D8D080 

DCB=  ( RECFM=F  B , LRECL=80 , BLKS I ZE -’6 1 60 )  01/25/88  025  10:38:12 

SUBROUTINE  MERGE2(XTEMP ) 

C 

C  BY  C.C.C.  (12/87) 

C 

C  SUBROUTINE  TO  MERGE  HUNTER  CARBON  OXIDATION  MODEL  WITH 
C  CMA  SURFACE  THERMOCHEMISTRY  TABLES.  CONTINUITY  BETWEEN  THE 
C  TWO  ABLATION  CURVES  IS  FORCED  AT  THE  INTERFACE  TEMPERATURE  BY 
C  APPLYING  A  MULTIPLIER  TO  THE  HUNTER  MASS  LOSS  PARAMETER. 

C  SEE  MERGER  SUBROUTINE. 

C  THIS  IS  USED  BECAUSE  THE  MAXIMUM  HUNTER  MASS  LOSS  PARAMETER  IS 
C  0.1741  WHEREAS  THE  TABLE  VALUES  THAT  WERE  CALCULATED  BY  THE  EST 
C  CODE  HAS  A  MINIMUM  VALUE  OF  ABOUT  0.1750.  (THE  OXIDATION  VALUES 
C  IN  THE  TABLES  ARE  FROM  GE  DATA). 

C  THE  INTERFACE  TEMPERATURE  IS  FOUND  FROM  THE  CHEMISTRY  TABLES  FOR  A 
C  GIVEN  MASS  LOSS  PARAMETER,  BPRIME. 

C 

C  A  VALUE  OF  XTEMP  IS  COMPUTED  FOR  A  GIVEN  BPCRIT  (IN  COMMON  BLOCK). 

C 

COMMON  KOUT, IEX, DEN, VR  CBM  5 

COMMON  IHI (76) , I LO( 76 ) , IR( 76) ,TT2(60,20) ,TCP(60,20) ,TKP(60,20) .THZCBM  6 
1(60,20) , TEP(60,20) ,TTH( 120)  ,THE( 120) ,TQR( 120) ,TCM( 120) ,TT1(60)  INPOU  4 
2 , THG( 60 ) ,0H12(4) ,RECORD( 108) ,SO(40) ,RH0(20) ,TEPBF (60 ,20 ) 

COMMON  MATL( 101) ,DEL( 101) ,TA( 101) ,H( 101) ,RC( 101) ,RA( 101) , 

1AREA(  101) ,EMA(101) ,RAV( 101) ,LGAP( 101) ,QGEN( 101 ) ,GAP( 101 ) 

COMMON  ROA( 1000) , ROB ( 1000) , ROC ( 1000)  CBM  12 

COMMON  TPR(20),NMG(20), 

C  TMG( 5,20) ,NLO( 5 ,20) ,NHI ( 5 ,20) ,KHI(5,20), 

1  TTSEN( 30,20) ,THSEN( 30 ,20) , TCPSEN( 30,20)  ,TLMC(30,5,20) , ISEN(20) , 

2  TP  I (  120) ,  TTS( 30,5,20) ,TCHEM( 30,5,20) ,VFZ,CMH,TBPF (30,5,20) , 

3  NPR , NGS 

COMMON  LCT,NPG, I  I , NBM,NUMN,NL ,DELHG,DELM,RFT,RHORA,RHORB,RHORC,TRACBM  18 
1CA,TRACB , TRACC ,RHOOA,RHOOB , RHOOC ,EA,EB,EC,BA,BB,BC,PSIA,P5IB,PSI C ,CBM  19 
2TRACM.PET ,PETE ,RSV,ETA,DTPR3  ,DTPR2  ,D1PRT,TPR3 , TPR2,THZR0, THF I N,WT ,CBM  20 
3TMWT ,GAMA,OMG,NO,FJFH,F JFS , Jf ,JFHP  ,JFH, INPUT,  DTH I N,BRP ,HCONV,CBM  21 
4EPSW,TRES,INCH,DTHB,NN,NI ,NOI ,CHCR I ,PYCR I ,TBRP( 120) ,NR , 

5  TX(30,6),F1(30,6),F2(30,6) ,NCON,NBPF  ,NF IS, BREX, SWELL 
CuMMON  BBB( 10,6) ,EE( 10,6) ,FF ( 10,6) ,PS I ( 10,6) ,RHOO( 10,6) ,  CB 

XRHOR ( 10,6)  , 

1ROCOM(50,3) ,DHC( 10) ,DHV( 10)  ,RHOC( 10) ,RH0V( 10) ,P( 10) ,PP ( 10) , 

XTREF ( 10)  , 

2GA( 10) , OMGA ( 10) ,NF I ( 10) ,NLA( 10) ,TT5(60,20) ,TENT(60,20) , 

XTKBU( 60,20) . 

3TCBU(  30, 10) ,X( 101 ) , NDBU , NBM2 , TR AC (  10,6) , NBUFT ( 10) ,KNST , I  BUG, TBUG, 

4  TALT( 120) , TVEL ( 120) ,RRGAP ( 101 ) ,AGAP( 101 ) , ICOND, IEROS, I  SR , 

5  NGC1 ,NGC2,NGC3,NGC4,TCON1(  101), TC0N2 (101) ,TC0N3 ( 101) ,TC0N4( 101), 

6  COND 1(101), C0ND2 (101), C0ND3 ( 101), C0ND4 (101), 

7  THCONV( 101) , TEPSW( 101)  ,TTRES( 101)  ,TQ( 101) ,TEPSD( 101 ) , IBF ,TL,THD, 

8  JTBL , IDRD.RHOCI (201 ) ,DTDT(201 ) ,RA1 ,RA2,RA3 

COMMON/OTP T/CPE(6) ,EMO( 201 )  ,DEP (20 , 10 )  ,CNC( 101 ) ,CN( 101 ) , Y1 ( 4) , 

1  CN0(  101 ) ,TO(20) ,R0( 101 ) ,N I S0( 20) ,BR,CH,GS,SA,TB,TT,ASU,CMD,CMT, 

2  I TS,QRP ,RAD ,RAT ( 101 ) ,RSU ,CMDM ,CMM T ,DCDT ,DEDT ,D I DT.DPDT , I  TER ,KSCT , 

3  PGPU ,PRES ,QRPT ,RADT ,SNET ,DECOM,DEDTT  .DSDTB , PGPUT .QCHEM .QCOND , 

4  QCONV,QLOSS  .SDNET  ,  SUMQE ,THPRT,TSAVE ,VELFS .DECOMT , 

5  PRSATM,QCHEMT,qCONDT,QCONVT,QLOSST,KK,RR( 101) ,DMOG( 101 ) , 

6  RON (  101) ,ROT( 101) ,DNCP(6) ,DR0T(6) ,D1 (4) ,FA,FB,FC,DTH,DTHC,DSI , 

7  DTA, GSM, COLD ,GSMS ,GSMT .GSM2T ,DSDT ,P0LD, TH ,AFTFS ,DSDTT , 

8  TEMP ,BF ,LL ,LU,HE ,HW 


CBM  2 

CBM  3 
CBM  4 
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C  .  COMMON  8L0CKS  CREATED  BY  CCC  (12/87)  FOR  MERGE  ROUTINES 

COMMON/MERGE/VRM,VRP , IMG , I  PR ,  I 1,13 

COMMON/OPT  I ON/TCR I T ,BPCR I T , TABCN , I OPTN , I MSG ,M I  TER 

DIMENSION  Y2(48) ,D2(48) 

C 

BPCRTL  =  ALOG(AMAX1 (BPCR I T,1 .  OE-5) ) 

-  INTERPOLATE  ON  VMR ,  GAS  FLOW 

IF(NGS.LE.I)  GO  TO  200 

200  CALL  LOOK ( 15 ,BP ,TLMC( 1 , IMG+1  , 1  PR) ,TTS( 1 ,1 MG+1 , I  PR ) ,0,0,0, 

1  Y2(2) ,D2, 1 ) 

CALL  LOOK( 17,BP,TLMC( 1 , IMG+1  ,  IPR+1 )  ,TTS( 1 , IMG+1 , 1 PR+1 ) ,0 ,0,0, 
1  Y2(4) ,02,1) 

XTG=Y2(2)+VRP*(Y2(4)-Y2(2) ) 


CBM  106 


. LOOK  UP  TEMP.  CORRESPONDING  TO  BPCR I TL  AT  TABLE  I  PR  (c  IPR+1 

200  CALL  LOOK( 14, BPCRTL, TLMC(1, IMG, IPR),TTS(1, IMG, IPR), 0,0,0 
1  ,Y2 ( 3 ) ,02 , 1 ) 

CALL  LOOK( 16, BPCRTL, TLMC( 1 , IMG, I PR+1 ) ,TTS( 1 , IMG, IPR+1 ) ,0,0,0 
1  ,Y2(5) ,02 , 1 ) 

-  TRANSITION  TEMPERATURE  IS  INTERPOLATED  BETWEEN  PRESSURE  TABLES 

XTEMP=Y2(3)+VRP*(Y2(5)-Y2(3) ) 


IF(NGS.LE.I)  GO  TO  550 
XTEMP^XTEMP+VRM* ( STG-XTEMP ) 

WRITE (6 .650) IPR,Y2(3) ,Y2(5) .XTEMP 
650  F ORMAT ( '  *****  IPR  =’,14,'  Y2(3)  =',E12.5, 

1  '  Y2( 5 )  =' ,E12.5, 

1  '  XTEMP  =' .E12.5) 


IF (TSAVE.GT. XTEMP)  RETURN 

I F ( IMSG.GE .2)  WRITE(6,100)BPCRIT, XTEMP, ITER 
100  FORMAT ('  **MG2**  TRANSITION  TEMP.  AT  BPRIME  OF  ',F9.5, 

1'  IS  1 ,F10.4, '  OEG  R  -  ITER  =  ’,15) 

RETURN 

END  CBM  1202 
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DSNAME  =  ' BBE.CCC1. SOURCE. CMA6. PDS ( MERGE3 )  '  V0L=SER=D8D080 

DCB=(RECFM=FB ,LRECL=80 ,BLKS I ZE=6160 )  01/25/88  025  10:38:14 

SUBROUTINE  MERGE3(XTEMP) 

CBM  2 

BY  CCC  (12/37) 


SUBROUTINE  TO  MERGE  HUNTER  CARBON  OXIDATION  MODEL  WITH  CBM  3 

CMA  SURFACE  THERMOCHEMISTRY  TABLES.  CONTINUITY  BETWEEN  THE  CBM  4 

TWO  ABLATION  CURVES  IS  FORCED  AT  THE  INTERFACE  TEMPERATURE  BY 
APPLYING  A  MULTIPLIER  TO  THE  HUNTER  MASS  LOSS  PARAMETER. 

SEE  MERGER  SUBROUTINE. 

THIS  IS  USED  BECAUSE  THE  MAXIMUM  HUNTER  MASS  LOSS  PARAMETER  IS 
0.1741  WHEREAS  THE  TABLE  VALUES  THAT  WERE  CALCULATED  BY  THE  EST 
CODE  HAS  A  MINIMUM  VALUE  OF  ABOUT  0.1750.  (THE  OXIDATION  VALUES 
IN  THE  TABLES  ARE  FROM  GE  DATA). 

THE  INTERFACE  TEMPERATURE  IS  FOUND  BY  USING  A  SEARCH  PROCEDURE  THAT 
COMPARES  THE  DIFFERENCE  IN  SLOPES  OF  THE  TABLES  AND  THE  DIKI 
SUBROUTINE.  THE  LN(BPRIME)'S  MUST  ALSO  BE  WITHIN  ABS(I.O). 

THE  SEARCH  STARTS  AT  THE  LOWEST  ABLATION  TEMPERATURE  FROM  THE 
TABLES  AND  MARCHES  IN  500  DEG  R  INCREMENTS.  WHEN  THE  RANGE  IS  FOUND 
THE  INCREMENT  IS  REDUCED  TO  100  DEG  R  WITHIN  THIS  RANGE  FOR  A  REFINED 
SEARCH. 


A  VALUE  OF  XTEMP  IS  OUTPUT  FOR  A  GIVEN  BPCRIT. 


BP1  =  VALUE  OF  BPRIME  FROM  DIKI  AT  (TEMPI  -  DDT) 

BP2  =  VALUE  OF  BPRIME  FROM  DIKI  AT  (TEMPI  +  DDT) 

BPDIFF  =  AVERAGE  OF  BP  1  AND  BP2 
BPREST  =  BPRIME  FROM  CHEMISTRY  TABLES 

DCDTED  =  DIFFERENCE  IN  SLOPES  BETWEEN  TABLES  AND  DIKI  ROUTINE 
DCDTD  =  SLOPE  FROM  CURVE  COMPUTFD  IN  DIKI  ROUTINE 
DCDTL  =  DIFFERENCE  IN  SLOPES  FROM  PRIOR  SEARCH  ITERATION 
DCDTT  =  SLOPE  FROM  CURVE  IN  TABLES 

DDT  =  TEMPERATURE  STEP  SIZE  FOR  DIKI  SLOPE  COMPUTATION 

DTI  =  FIRST  TEMPERATURE  SEARCH  STEP  SIZE 

DT2  =  SECOND  TEMPERATURE  SEARCH  STEP  SIZE 

DTEMP  =  CURRENT  TEMPERATURE  STEP  SIZE,  EITHER  DTI  OR  DT2 

I  COUNT  =  SEARCH  ITERATION  COUNTER 

I  FIRST  =  FLAG  TO  INDICATE  FIRST  SEARCH  POINT 

LIMIT  =  MAXIMUM  NUMBER  OF  ITERATIONS 

TEMPT  =  CURRENT  TEMPERATURE  AT  WHICH  VALUES  ARE  EVALUATED 
TLAST  =  TEMPI  FROM  PRIOR  SEARCH  ITERATION 
TMAX  =  MAXIMUM  TEMPERATURE  IN  ABLATION  PART  OF  TABLES 
Y2  =  DUMMY  ARRAY  VARIABLE 


COMMON  KOUT, I  EX, DEN, VR  CBM  5 

COMMON  IHI  (76)  ,  11.0(76)  ,  IR(76)  ,TT2{60,20) , TCP ( 60 ,20 ) . TKP ( 60 ,20 ) . THZCBM  6 

1(60,20) , TEP ( 60 , 20 )  , TTH ( 120) , THE ( 120) , TQR( 120) ,TCM(  120) ,TT1(60)  INPOU  4 
2 , THG( 60 ) ,OH12(i4) .RECORD ( 108) ,S0(40) ,RH0( 20 ) , TEPBF ( 60 ,20 ) 

COMMON  MATL( 101 ) .DEL ( 101) ,TA( 101) ,H( 101) ,RC( 101) ,RA{ 101 ) , 

1 AREA( 101 ) , EMA( 101 ) ,RAV( 101 ) ,IGAP( 101 ) ,QGEN( 101), GAP (101) 

COMMON  ROA( 1000) ,ROB( 1000)  ,ROC( 1000)  CBM  12 

COMMON  TPR ( 20 ) , NMG( 20 ) , 

C  TMG( 5 , 20 ) , NLO( 5 , 20 ) , NH I ( 5 ,20 ) ,KH I ( 5 . 20 ) , 

1  TTSEN( 30,20) , THSEN ( 30 ,20 )  ,TCPSEN( 30 ,20 ) . TLMC{ 30 ,5 ,20) , I  SEN (20) , 

2  TP  I ( 120 )  ,  TTS(30,5,20) ,TCHEM(30,5,20) ,VFZ ,CMH , TBPF (30,5,20) , 

3  NPR.NGS 

COMMON  LCT.NPG, I  I , NBM , NUMN ,NL , DLL HC , DELM.RF T ,RHORA,RHORB,RHORC , TRACBM  18 
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1CA.TRACB ,TRACC,RHOOA,RHOOB ,RHOOC ,EA,EB,EC,BA,BB ,BC,PS I A, PS  I B , PS  1C, CBM  19 
2TRACM,PET,PETE,RSV,ETA,DTPR3,DTPR2,DTPRT,TPR3,TPR2,THZRO,THFIN,WT,CBM  20 
3TMWT, GAMA, OMG, NO, FJFH, FJFS, JF ,JFHP,JFH, INPUT,  DTH I N ,BRP ,HCONV,CBM  21 

4EPSW.TRES, INCH,DrHB,NN,NI ,NOI ,CHCRI ,PYCRI ,TBRP( 120) ,NR , 

5  TX( 30,6) ,F 1(30,6) , F2( 30,6 ) ,NCON,NBPF ,NF I S,BREX, SWELL 
COMMON  BBB( 10,6) ,EE( 10,6) ,FF( 10,6) ,PSI ( 10,6) ,RH00( 10,6) ,  CB 

XRHOR( 10,6) , 

1R0C0M(50,3) ,DHC( 10) ,DHV( 10) ,RHOC( 10) ,RH0V( 10) ,P( 10) ,PP( 10) , 

XTREF ( 10)  , 

2GA( 10) ,OMGA( 10) ,NF I ( 10) ,NLA( 10) , TT5( 60 ,20 ) ,TENT ( 60 , 20 ) , 

XTKBU(60,20) , 

3TCBU(30, 10) ,X( 101 ) ,NDBU,NBM2,TRAC( 10,6) , NBUFT ( 10) ,KNST, IBUG.TBUG, 

4  TALT( 120) ,TVEl  ( 120) ,RRGAP( 101 ) ,AGAP( 101 ) , ICOND, IER0S, ISR, 

5  NGC 1 , NGC2 , NGC3 , NGC4 , TCON 1(101), TC0N2 ( 1 0 1 ) , TC0N3 ( 1 0 1 ) , TC0N4 (101), 

6  CONDI ( 101) ,C0ND2( 101) ,C0ND3( 101) ,C0ND4( 101) , 

7  THC0NV( 101 )  , TEPSW(  101 )  ,TTRES(  101 ) ,TQ( 101 ) ,TEPSD( 101 ) , IBF,TL,THD, 

8  JTBL , IDRD,RHOCI (201 ) ,DTDT(201 ) ,RA1 ,RA2,RA3 
COMMON/OTPT/CPE ( 6) ,EMO(201 ) ,DEP(20, 10) ,CNC( 101 ) ,CN( 101 ) ,Y1 (4) , 

1  CNO( 101) ,T0(20) ,R0( 10 1 ) ,N I S0( 20) ,BR,CH,GS,SA,TB,TT,ASU,CMD,CMT, 

2  I TS,QRP , RAD , RAT ( 101 ) ,RSU,CMDM ,CMMT,DCDT ,DEDT,D 1 DT,DPDT , ITER,KSCT, 

3  PGPU ,PRES,QRPT ,RADT,SNET ,DEC0M,DEDTT ,DSDTB,PGPUT ,QCHEM,QCONO , 

4  QCONV.QLOSS ,SDNET ,  SUMQE ,THPRT , TSAVE ,VELFS ,DEC0MT , 

5  PRSATM,QCHEMT,QCONDT,QCONVT,QLOSST,KK,RR( 101 ) ,DMDG( 101 ) , 

6  RON( 101 ) ,R0T ( 101) ,DNCP(6) ,DR0T(6) ,D1 (4) ,FA,FB,FC,DTH,DTHC,DSI , 

7  DTA , GSM , COLD , GSMS , GSMT ,GSM2T , DSD T , POLD , TH , AF TF S , DSDTT , 

8  TEMP ,BF ,LL ,LU , HE , HW 


C  -  COMMON  BLOCKS  ADDED  BY  CCC  FOR  MERGE  ROUTINES. 

COMMON/MERGE/VRM , VRP , IMG, IPR, 11,13 

COMMON/OPT  I ON/TCR I T , BPCR I T , TABCN , IOPTN, I  MSG , M I TE 

DIMENSION  Y2(48) ,D2(48) 

C  .  INITIAL  VALUES  AND  CONSTANTS 

C 


DTI  =  500.0 
DT2  =  100.0 
DTEMP  =  DTI 
DDT  =  10.0 
IFIRST  =  1 
I C0UNT=0 
L I M I T=16 
C 


C  -  LOCATE  LOW  ie  HI  TtMP.  FROM  TABLES  TO  BOUND  SEARCH  PROCEDURE 

C 

TEMPI  =  TTS( I  1 , IMG, IPR)+VRP»( T 1 S (  13, IMG, IPR+1)-TTS( I  1 , IMG, IPR) ) 
TMAX  =  TTS(NHI ( IMG, IPR)  ,  IMG, I  PR ) +VRP* ( TTS ( NH I ( IMG, IPR+1 ) , IMG, 

1  I PR+ 1 ) -TTS ( NH I (  IMG,  IPR) , IMG, IPR) ) 

C  WR I TE (6.801 ) VRP , I  PR  ,  11  ,  I  3,  TTS (  I  1 ,  IMG, IPR)  ,TTS( 11 , IMG, IPR+1 ) .TEMPI 
C  801  FORMATS  **MG3*»  VRP  ,  I  PR , I  1 , 1  3 , 1 TS ( 1 , IMG , I  PR ) , TTS( 1 , I  MG , IPR+1 ) , ' 

C  1', TEMPI  =  »•»«**  ',  E  12 . 5 , 3  1 6 , 3E  12 . 5 ) 

GO  TO  150 


C 

100  Tl.AST  =  TEMPI 
DCOTL  =  DCDTED 
TEMPI  =  TEMPI  +  DTEMP 
I F ( TEMP  1 . GT , TMAX)  GO  TO  1100 

C  .  COMPUTE  SLOPE  &  LN(BPRIHE)  f ROM  TABLES  AT  TEMPI  (AND  PRES) 

150  I COUNT= I  COUNT + 1 

CALL  LOOK ( 14, TEMP  1 , T TS( 1 , I  MG , I  PR ) ,TLMC( 1 , I  MG , I  PR ) ,0 . 0 ,0 , Y2 ( 1 ) , 

1  Y2 ( 2 )  ,  1  ) 

CALL  LOOK (  16,  TEMPI  ,TTS(  1 ,  IMG, I PK+ 1 ) , TLMC( 1 , I  MG , I PR+ 1 ) ,0 ,0 ,0 . 

1  Y2( 3 ) , Y2( 4 )  ,  1  ) 
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C  WR I TF ( 6 , 80? ) T  MAX , Y? ( 1 ) , Y?( 3 ) , Y? ( ? ) ,Y2 ( 4 ) 

C  802  FORMAT ( '  **MG3#*  1MAX,Y2( 1 ) ,Y2(3) ,Y2(2) ,Y2(4)  =  ’.5E12.5) 
BPREST=Y2 ( 1 )+VRP#( Y2( 3 ) -Y2( 1 ) ) 

DCDTT=Y2(2)+VRP*(Y2(4)-Y2(2) ) 

C  -  COMPUTE  SLOPE  &  LN(BPRIME)  FROM  D IK i  SUBROUTINE  AT  TEMPI 


Y2( 1 )  =  TEMPI  -  DDT 

CALL  DIK I  (PRES,BP1,CH,Y2,DUM1,DUM2,-1,JTBL) 

Y2 ( 1 )  =  TEMPI  +  DDT 

CALL  D IK  I  (PRES,BP2,CH,Y2,DUM1 ,DUM2 , -  1 , JTBL ) 

BPDIKI=(BP1+BP2)/2.0 

DCDTD  =  (BP2-BP  1  )/(2.0*0DT) 

C  -  COMPUTE  DIFFERENCE  BETWEEN  DIK)  &  TABLE  LN(BPRIME)'S  &  SLOPES 

BPDIFF=BPREST-BPDIK I 
DCDTED  =  DCDTT  -  DCDTD 

I F { IMSG.GE.3)  WRITE (6,803)BPREST .BPDIKI , DCDTT. DCDTD 
803  FORMAT ( '  **MG3**  BPREST,BPDIK I , DCDTT, DCDTO  =  ’ 

i  /  *  #####  » 


»  >  -  ,  IC  .  J  / 

C . NEXT  TEMPERATURE 

I F ( IF IRST.NE. 1)  GO  TO  200 
IFIRST  =  0 
GO  TO  100 

C  -  COMPARE  LAST  AND  CURRENT  DIFFERENCE  IN  SLOPES 

C  -  AND  TEST  FOR  DIFFERENCE  OF  LN(BPRIME)'S  LESS  THAN  1.0 


200  CONTINUE 

I F ( I  MSG . GE . 3 )  WR  I  TE ( 6 , 800 ) TEMP  1 , TLAST , DCDTED ,DCDTL ,BPD I FF 
800  FORMAT ( '  **MG3**  TEMPI .TLAST, DCDTED, DCDTL.BPDIFF  =  '.5E12.5) 

IF( ICOUNT.GE. LIMIT)  GO  TO  600 

I F (BPD I FF .GE .  1.0)  GO  TO  100 

IFfDCDTL.LT.O. AND. DCDTED. LT.O)  GO  TO  100 
I F (DCDTL .GT.O . AND .OCDTED .GT.O)  GO  TO  600 
I F (DCDTL . LE . 0 . AND.DCOTED.GE .0)  GO  TO  400 

C -  INTERPOLATE  X  TEMP  OR  DO  SECOND  SEARCH  WITH  SMALLER  DTEMP 

400  IF(DTEMP.EQ.DTI)  GO  TO  500 

XTEMP  =  TEMPI  -  DCDTED/ ( DCOTED-DCDTL ) w ( TEMP  1- TLAST) 

IF(TSAVE.GT.XTEMP)  RETURN 

IF ( IMSG.GE .2)  WR I TE ( 6 , 1000) XTEMP , I  TER 

RETURN 

C  -  REFINED  TEMP.  STEP  USED  WHEN  TIRST  RANGE  IS  LOCATED 

500  DTEMP  =  DT2 

TEMP  1  =  TL AST +D TEMP  »  _ 

GO  TO  150  ^ 

C  ---  EXIT  IF  ITERATIONS  EXCEEDED  OR  IT  DCDTED  ALWAYS  GREATER  THAN  ZERO 
600  XTEMP  =  TLAST 

WR I TE (6.700)XTIMP 

700  FORMATf'  *»MG3»»  WARNING  ****"•  MERGE  ROUTINE  SEARCH  PROCEDURE'. 

1  '  REACHED  ITERATION  LIMIT.',/,'  *****  (XTEHP  =  '.F10.4.'  R).) 

WRITE (6. 1000) XTEMP , I TfR 

1000  FORMAT( 1  **MG3*#  1 RANS I T I  ON  TEMPERATURE  FROM  SEARCH  ROUTINE  IS' 

1  ,  F 10.5, '  DEG  R  -  ITER  =  ’ , 15  ) 

STOP 

1100  WR I TE (6, 1200) TMAX 
WR I TE ( 6 , 1200 ) TMAX 
WR I TE ( 6 . 1200 ) TMAX 

1200  FORMAT! '  **MG3**  I  AST  TEMPERATURE  ENTRY  OF  TABLE  REACHED,  NO  '. 

1 'MERGE  POINT  FOUND.  TMAX  =  ',1,12.5) 

STOP 

ENO  C8H  1202 
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DSNAME  =  'BBE.CCC1 .SOURCE. CMA6.PDS(OUTPT2) ' 

DCB=(RECFM=FB,LRECL=80,BLKSIZE=6160) 

SUBROUTINE  OUTPT(JJJ) 

CHANGES  TO  PROGRAM: 

(1/16/87)  SIZE  OF  TTH ,THE ,TQR , TCM ,TBRP , TALT,TVEL ,  TP  I 
EXPANDED  TO  120  ELEMENT  ARRAYS 
(1/19/87)  SIZE  OF  TTSEN .THSEN , TCPSEN.TLMC.TTS.TCHEM, TBPF , 

TPR ,  HMG, TMG,NL0,NH I ,KHI , ISEN, 

EXPANDED  TO  ACCOMMODATE  20  EST  TABLES  WITH  30 
ENTRIES  EACH 

(1/29/87)  ALL  OTHFR  SUBSCRIPTED  VARIABLE  DIMENSIONS  DOUBLED 
AS  RECOMMENDED  BY  L.L.  PER  INI. 

ADDED  WRITEOUT  OF  NODAL  DEPTHS  tc  TEMPS  TO  UNIT  8 

COMMON  KOUT, IEX,DEN,VR  CBM  5 

COMMON  IHI (76) , I LO( 76 ) , IR(76)  ,TT2(60,20) ,TCP(60,20) ,TKP(60,20) .THZCBM  6 
1(60,20) , TEP ( 60 ,20 ) ,TTH(  120) ,THE( 120) ,TQR( 120) ,TCM( 120) ,TT1 (60)  INPOU  4 

2,THG(60) , DH 12(4) . RECORD ( 108) ,SO(40) ,RH0(20) .TEPBF (60 ,20) 

COMMON  MATL ( 101) .DEL ( 101 ) , TA( 101 ) ,H( 101) ,RC( 101) ,RA( 101 ) , 
lAREA(IOI) ,EMA( 101) ,RAV( 101 ) ,LGAP( 101 ) ,QGEN( 101 ) ,GAP( 101) 

COMMON  ROA( 1000) , ROB ( 1000) , ROC (  1000)  CBM  12 

COMMON  TPR(20) ,NMG(20) , 

C  TMG(5,20) ,NL0(5,20) ,NHI (5,20) ,KHI (5,20) » 

1  TTSEN (30, 20) .THSEN (30, 20) ,TCPSEN( 30,20) , TLMC( 30 ,5,20) , I  SEN (20) , 

2  TP  I ( 120 ) ,  TTS( 30 ,5 ,20) ,TCHEM( 30,5,20) .VFZ.CMH, TBPF (30,5,20) , 

3  NPR.NGS 

COMMON  LCT.NPG, I  I ,NBM, NUMN ,NL ,DELHG,DELM,RFT ,RHORA,RHORB,RHORC ,TRAC8M  18 
1 CA , TRACB , TRACC , RHOOA , RHOOB  , RHOOC , EA , EB , EC ,BA , BB , BC , PS  I A , PS  I B , PS  I C , CBM  19 
2TRACM, PET, PETE , RSV, ETA , DTPR3 , DTPR2 .DTPRT , TPR3  ,  TPR2 , THZRO , THF IN,WT,CBM  20 
3TMWT,GAMA,OMG,NO,FJFH,F JFS, JF  , JF HP , JF H , I NPUT ,  OTH I N , BRP .HCONV.CBM  21 

4EPSW, TRES , I NCH ,DTHB ,NN , N I , NO  I ,CHCRI ,PYCRI ,TBRP(1201 , NR, 

5  TX(30,6)  ,F  1  (30,6)  ,F2(  30,6)  .NCON.NBPF  ,NF  IS,  BREX,  SWELL 
COMMON  BBB( 10,6)  ,EE(  10.6) ,FF( 10.6) ,PSI ( 10,6) ,RHOO( 10,6) , 

XRHOR ( 10,6) , 

1 ROCOM (50,3) , DHC ( 10) ,OHV( 10) ,RHOC( 10) ,RHOV( 10) ,P( 10) ,PP( 10) , 

XTREF( 10)  , 

^  2GA( 10) , OMGA( 10) ,NFI ( 10)  ,NLA( 10 ) , TT5( 60 .20 ) . TENT ( 60 ,20 ) , 

^  XTKBU(60,20) , 

3TCBU( 30. 10) ,X( 101 ) , NDBU  ,NBM2 , TRAC( 10 , 6 ) .NBUFT ( 10 ) ,KNST , I BUG.TBUG , 

4  TALT( 120) , TVEL ( 120) ,RRGAP( 101 ) ,AGAP( 101) , I COND , I  EROS ,  I  SR 
COMMON/OTPT/CPE (6) .EMO(201) ,0EP(20, 10)  ,CNC( 10 1 ) ,CN( 10 1 ) . Y1 ( 4 ) , 

1  CN0( 101 ) .T0(20)  ,R0( 101 ) ,N1SO(20) ,BR , CM , GS ,SA , TB , TT , ASU ,CM0 , CHT , 

2  I TS ,QRP ,RAD ,RAT (101) ,RSU ,CMDM . CMMT ,DCDT ,DEOT ,D I DT ,DPOT , I  TER ,KSCT , 

3  PGPU.PRES.QRPT , RAOT ,SNET ,DECOM ,DEDT T , DSDTB .PGPUT .QCHEM.QCONO , 

4  QCONV .QLOSS  , SDNE 1 ,  SUMQE , TMPRT , TSAVE .VELFS .OECOMT , 

5  PRSATM.QCHEMT .QCONOT .QCONVT .Ql.OSST ,KK ,RR( 101 ) ,DMOG( 101 ) , 

6  RON( 101 ) .ROT (101) ,DNCP ( 6 )  ,OROT(6)  ,D1(4)  ,FA,FB,FC,DTH,OTHC,OSI , 

7  OTA, GSM, COLD .GSMS  .GSMT ,GSK2T ,DSDT ,POLD , TH ,AF TFS .OSDTT , 

_ fl-IEMP  .Bf  .LL.LU.HE.HW _ _ _ 

COMMON/OPT  I ON/TCR  I  T  , BPCR  I T , TABi-4  ,  IOPTN  ,  I M$C , M I  TER , I BLOPT 

_ COMMON /BLOW !  N/BL  QW .  BLQF  AC  _ _ 

EQU I VALENCE  ( DH 1  .DM  1 2 ( 1 ) ) , ( 0H2 .DH  12 ( 2 ) ) , ( TS , TA( 1 ) ) 


554 

FORMAT ( IX, 8F 10.4/(20X,6F 10.4) ) 

CBM 

103 

4102 

F  ORMAT ( 72E 14.7, 101 10) 

DIDT  =  12 . 0“DSD  TB 

NDR=NBM-NL-1 

CBM 

279 

NL ! NUMN-NOR+1 )/2 

CBM 

280 

V0L=SER=D8D080 
01/19/88  019  14:41:18 
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K  =  NL  I 

BPRM  =  0.0 
BPRMG=0.0 

IF  (  ABS(CH) .LT. I .0E-15)  CO  TO  4105 
BPRM={ GS  +CMD ) / ( CH*CMH) 

BPRMG=GS  /(CH*CMH) 

CALL  LOOK ( 3 , TS , T T2 ( 1 , 1) ,THZ( 1 . 1 )  .0 .0 ,0 , TEMP ,DUM , 1 ) 

. .  TEMP  =  INTERPOLATED  ENTHALPY  OF  MATERIAL 

HW  =  (BPRM#TEMP-QCHEM/CH)/( 1 .0+BPRM) 

PRINT  OUTPUT  AT  REQUESTED  TIME 

4105  CALL  L COUNT ( 33+NL I  ,LCT ,NPG) 


CBM  281 


CBM 

CBM 


WRITE  (KOUT ,543 ) TH 
543  FORMAT (  /6X28H-  -  - 
1----  . 


F9.4.37H  SECONDS 


WRITE  (KOUT, 544) 

544  F  ORMAT ( 6X , 4HT I  ME , 2X ,4HSURF ,2X , 4HPROB , 2X , 7HSURF ACE , 5X , 6HH  WALL, 
14X.6HH  EDGE ,6X, 10CHEAT  COEFF ,6X  .6HCH/CHO/6X ,4HSTEP ,2X ,4H I  TER ,2 
20PTN,2X,8HRAD  (IN) , 3X ,8H( BTU/LB ) ,2X,8H ( BTU/LB ) ,3X, 14H(LB/SQ  FT 
3)) 

WRITE  (KOUT, 545)  ITER,  ITS,  II  ,RSU , HW , HE , CH ,BR 

545  FORMAT(6X,I4,2I6.F10.4,F11.2,F10.2,F14.6,5X,FB.5/1H  ) 

WRITE  (KOUT, 546) 

546  FORMAT ( 33X.20H - ABLATION  RATES - ) 


— FH-EBH>PT-rt:€-.-e-)-  GO  -TO-  580— 

1  OUTPUT  WHEN  OSINO  OLOWINO  OPTION  Of  QR*0  ■ 

- WRITE  (KOUT, 570) - 

-»70  FOR  HAH-'-  &  PBFM6 - 0  PRIME  O — M  OftT  CHAR M  OOT~ ERg- 


- 1  '  H  CHAR - M- 

-ERG - PERCENT - QHAO^/PO*-; - 

t  LU/'UK’TU’  H  J  , 

— -WR  F  TE  -  -TROUT  ,-57-H- 

OPRM ,  OPRMO ,  CHO  rCMBM ,  Cm  ,  CMMT  .  BLOW .  9L0F  AC - 

571  FORMAT  (  1X,R»r5-,OX.F8.5.3X,f-tO%-6.-He*,F  10.6)  ,PM  ;F».5;£M  .f  7. 5 
- GO  TO  585- 


-569  CONI INtf£- 


WRITE  (KOUT, 547) 

547  FORMAT (8X,7HB  PRIHC.3X,9MB  PRIME  G,3X,10HH  DOT  CHAR,3X,9HH  DOT  ERS 
16X.6HH  CHAR , 7X , 5HM  ERS/ 34X , 14H ( l B/SQ  F T -SEC) , 1 IX . 15H( LB/OR  I G  SQ  FT 
2)) 

C 

WRITE  (KOUT, 548)  BPRH ,BPRHC ,CH0 .CHQM ,CMT ,CHHT 
546  F0RMAT[8X,F8.5.2X.I 8.5.4(3X,F 10.6)/1H  ) 

I  58$ 'g^HTTNur  "j 
C 

WRtrE  (KOUT, 5480)  CHCRI.PYCRI 

5400  F  ORMAT ( 27X , 32M - K(  CE SS I ONS/RECE SS I  ON  RATES / 

1 33X, 1 9  H ( IN)  /  { IN/SEC)/ 

2  16X, 7MSURFACE .  16X.6HCHAR  ( , f 4 . 2 , 1M ) , 1 IX , 11HPYROL YS t S  (.F4.2.1 
C 

WRITE  (KOUT, 5401)  SA,0I0T,CPE( 1 ) .DC0T,CPE(2) ,OPOT 

5401  FORMAT  (  5X,  3  ( 4X,f  10 . 7 . 1H/  ,F9 . 7 )  /  111  ) 

C 


208 

289 


CBM 

53 

CBM 

284 

CBM 

54 

ICBM 

55 

;cbh 

56 

CBM 

57 

CBM 

285 

CBM 

58 

CBM 

286 

CBM 

59 

CBM 

287 

CBM 

62 

CBM 

63 

CBM 

) 

287 

C8H 

62 

C0H 

63 

CBM 

291 

CBH 

64 

CBM 

65 

CBH 

66 

CBM 

292 

CBH 

67 

71 
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WR  I  T  £  (K0UT.5482)  CBM  293 

5482  FORMAT (27X, 3 1H-— SURFACE  ENERGY  FLUX  TFRMS---/25X , 37HCURRENT  RATESCBM  68 

1  ( BTU/SQ  FT  SURF  ACE -SEC ) /24X , 38HAN0  INTEGRATED  VALUES  (BTU/ORIG  SQCBM  69 

2  FT)/  CBM  70 

3  T3X, 10.  CONVECTED  ,4X,10H  RADIATED  ,4X,10H  RAOIATED  ,4X,10H  CHECBM  71 

4MICAL  ,4X, 10HC0N0UCT I  ON/ 1 7X ,2111 N ,  12X.2HIN, 1 1X , 3HOUT ,8X , 10HGENERAT I  CBM  72 
SON, 7X, 4 HAWAY)  CBM  73 

C 

WRITE  ( KOUT ,5483 )  QCONV , QRP , R AO , QCHEM ,QC0N0 .QCONVT ,QR?T , RADT ,QCHEMCBM  294 
1 T , QCONOT  CBM  295 

c  -  5483  EXPANDED  FIELD  FORMATS 

5483  FORMAT  (6X .4HRATE ,2X , 5( E 12 . 5 ,2X) /6X, 5HTOTAL , IX , 5( E 12 . 5 , 2X) / 1H  )  CBM  74 
C 

WRITE  ( ROUT , 5484 )  CBM  296 

5484  F ORMAT ( 30X ,27H--- INTERIOR  ENERGY  TERMS---/ 

3  13X.9HPYROL  GAS , 7X,6HDECOMP ,6X, 10HCONVECT I  ON ,6X, 7HSTORAGE ,  CBM  78 

47X ,  7HLOSS  AT/ 14X ,  7HP  I  C!(  UP  ,  6X ,  10HA8S0RPT  I  ON,  3X ,  11 HW I  TH  SOLIOS.5X,  CBM  79 
58HIN  SOL  I D ,6X .9HREAR  FACE)  CBM  80 

C 

WRITE  ( KOUT , 5485 ) PGPU ,0EC0M  ,  TB  ,0EDT ,QL OSS , PGPUT , DECOMT ,  TT ,DEDTT ,CBM  297 
1QLOSST  CBM  298 

5485  FORMAT  (6X ,4HRATE ,2X , 5( E 12 . 5 ,2X) /6X , 5HT0TAL , IX. 5 ( E 12 . 5 ,2X) / 1H  )  CBM  81 
C 

PRSATM  =  EXP (PRES) 

C 

WR  I  TE  ( 6 ,584 )  SUMQE  .PRSATM, VEI.FS  ,AFTFS 
584  F ORMAT (  IBM  QERR ( BTU/F T2 )  ^,F6.2,10H  ,PT ( ATM)  =  , F 10 . 6  , 

1  1 1 H  ,V£L ( FPS )  =  ,F8 . 1  , 10H  , AL  T ( F  T ) =  ,F9.1) 

C 

IF(NCON.LE.O)  WR I TE ( 6 , 549 ) 

549  FORMAT  (6X8HNODE  MAT3X4HTEMP 3X7HDENS I T Y  3X8HENTHALPY2X8HNOOE  MAT3X4CBM  82 
1HTEMP3X7HDENSITY3X8MENTHALPY/15X7H(DEG  R)11H  (LB/CU  FT)9H  (BTU/LB)CBM  83 
211 X7M ( OEG  R)11H  (LB/CU  FT)9H  ( BTU/LB ) )  CBM  84 

C 

IF(NCON.GT.O)  WR I TE (6 ,5490) 

5490  FORMAT (6X.8HNODE  MAT  ,  3X , 4HTEMP  ,  3X, 7HD1 NS  I TY ,2X , 9MCON0 ( BTU/ , 2X .8MN0CBM  85 
TOE  MAT , 3X , 4MTEMP , 3X , 7M0ENS I  I Y , 2X , 9MC0ND (BTU//15X,7H(DEG  R),11H  ( LBCBM  86 
2/CU  FT), 9H  FT  SC  F ) , 1 IX , 7M ( DE C  R),11H  (LB/CU  FT),9H  FT  SC  F))  CBM  87 

C 

WR I TE(8,3001 ) TH, (RAV(  I )  ,TA(  I ) . 1  =  1 ,NUHN) 

3001  FORMAT(F10.5,50(F6.5,F5.0n 
C 

I F ( NO  I  .LE .0)  GO  TO  190 

CALL  SLOPQ  (NL,RA( 1) ,TA( 1) , F M0( 1 ) ) 

IF ( NO. LE . 0 )  GO  TO  18? 

CALL  OGLE  (NO  ,S0  ,  T0(  1 ) ,NL ,RA(  l )  ,  1A(  1  ) ,1 M0(  1 ) ) 

182  IF ( Nl .LE .0)  GO  TO  189 
00  186  1 = 1 . N I 

T0( I )  =  PIF  1(S0( I ) .RA.NL , 1 A ) 

186  CONTINUE 

189  IF (NUMN.GE .NBM)  CALL  1HE RMS( N I  SO , TO .Of P .HR ,CN .RAT ) 

WR  I  TE  (KSCT  ,4  10?)  TH  ,  TS  .  {  T0(  t  )  .  I  =>  1  ,20)  . 

1  ( (OEP(  I . J) . 1  =  1 . 10)  , JM .5) .{NISOI  I  )  .  U  1  , 10) 

KK=KK+t  CBH  325 

190  M  =  WT 

IF(NC0N.LE  .0)  GO  10  3012 
00  3009  1=  1  ,NL 
IF (WT.LC .0.0)  GO  TO  3007 

CALL  LOOK( 3 1 *H , X (  I  )  .IX;  1  ,M)  ,F  1{  1,M) , 1  ’ (  1  ,M)  ,0,0,Y1 ,01.2) 

CN0(  I  )=Y1(  t)»CN(  I  )  ♦YI(2)»<.NC(  I  )  CBH  332 
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GO  TO  3009 

CBM 

333 

3007 

CNO( 1  )=X( I )*CN{ 1 )+( 1 .0-X( 1 ) )*CNC{ I ) 

CBM 

334 

3009 

CONTINUE 

IF (NDBU.LE.O)  GO  TO  3023 

CBM 

335 

00  3030  1=1, NOBU 

LL=NF 1(1) 

CBM 

338 

LU=NLA( 1 ) 

CUM 

339 

L=NBUET( 1 ) 

CBM 

340 

DO  3025  J=LL ,LU 

CBM 

341 

IF(L.LE.O)  GO  TO  3026 

CALL  L00K(31+L,X(J) ,TX( 1 ,L ) ,F 1 ( 1 ,L ) ,F2( 1 ,L ) 

,0,0,Y1 ,01,2) 

CBM 

343 

CNO( J)=Y1( 1 )*CN(J)+Y1(2)*CNC(  J) 

CBM 

344 

GO  TO  3025 

CBM 

345 

3026 

CNO( J)=X( J)*CN( J)+( 1.0-X( J))*CNC( J) 

CBM 

346 

3025 

CONTINUE 

CBM 

347 

3030 

CONTINUE 

CBM 

348 

3023 

IF (NUMN.LT.NBM2)  GO  TO  3012 

00  3029  1 =NBM2,NUMN 

3029 

CNO( 1 )=CN( 1 ) 

CBM 

351 

3012 

DO  3011  J=1 ,NLI 

L  =  J 

CBM 

354 

IF(L.LE.NL)  GO  TO  3002 
l=L+NOR 

K=NL  1 

CBM 

357 

GO  TO  3003 

CBM 

358 

3002 

1 F ( L+NL 1 .GT.NL)  K  =  NL 1 +NOR 

3003 

N=M  1  NO  ( NUMN ,  K+l . ) 

1 F ( NCON .LE .0 ) WR 1 TE( 6,550) ( 1 ,MATL( 1 ) ,TA( 1 ) ,R0( 1 ) 

,H( 1 ) , 1 =L ,N,K) 

550 

FORMAT  (5X2I4,F9.2,F10.3,2XF8.2, 1X2 1 4 , F9 . 2 ,F 10 . 

3.F10.2) 

C8M 

88 

1 F ( NCON .GT .0 )WR I TE( 6 ,5500) ( 1 , MATL ( 1 ) ,TA( 1 ) ,R0(  1 

) ,CN0( i ) , 1 =L , N,K ) 

5500 

FORMAT(5X,2I4,F9.2,F10.3,2X,T8.6, 1X,2 1 4 , F9 . 2 ,F 10 . 3 ,F 10 . 6 ) 

CBM 

89 

3011 

CONTINUE 

1 F ( SWILL . EQ . 0 . 0 )  GO  TO  3101 

CBM 

366 

r> 

SDNET  =  (  1  ,+SWELL)*DIDT-SWELL<*DCDT 

WR  1 TE ( 6  ,590)  SNET, SONET 

590 

FORMAT (/10X.48HSURFACE  RECESSION  AFTER  SWELL  (1 

NCHES ) 

EBCBM 

370 

1 .4/10X,48HSURFACE  RECESSION  RATE  WITH  SWELL  (INCHES/SEC)  =F8.4) 

CBM 

371 

3101 

IF(TH-THF IN. LT. -0.00001 )  GO  TO  1151 

1 F ( NO  1 . LE . 0 )  GO  TO  1 

REWIND  KSCT 

N=0 

CBM 

392 

c 

CALL  L COUNT (-18,LCT,NPG) 

WR 1 TE ( KO"T , 552 )  NO,N! 

CBM 

394 

552 

F ORMAT ( 9X.67H0PT 1 ONAL  OUTPUT  OF  THERMOCOUPLE  TEMPERATURES  ANO/OR  ICBM 

92 

ISOTHERM  DEPTHS/24X, 3 7 HOE P THS  MEASURED  FROM  ORIGINAL  SURF ACE/24X 

,  CBM 

93 

23 1HTEMPERAYURES  IN  DEGREES  RANK  1 NE//6X , 7 7HFACH 

OUTPUT  BLOCK  SHOWS  CBM 

94 

3THE  time  IN  SECONDS,  THE  CURRENT  SURFACE  TEMPERATURE , /6X , 20HTHE 

TECBM 

95 

4MPERATURCS  OF  ,I2,44H  THERMOCOUPLES,  AND  THE  DEPTHS  IN  INCHES  OE  ,CBM 

96 

1 

512, 10H  1 S0THERMS/6X , 34HWI TH 1 N  THE  MAIN  ABLATING 

MATERIAL ./) 

CPM 

97 

WRITE(K0UT,5521)  CBH  395 

5521  FORMAT (6X,  74HTHE  FIRST  SLOCK  SHOWS  A  SAMPLE  TIME  AND  SUCPM  98 

6RFACE  TEMPERATURE,  THE  SPEC  1 1  I ED/6X , 7 3HDEP THS  OE  THE  THERMOCOUPLE SC8M  99 

7  (IE  ANY)  AND  THE  ISOTHERM  TEMPERATURES.  THE/6X ,  76HARRANGEMENT  OCBM  TOO 
Sr  THIS  BLOCK  CORRESPONDS  TO  THE  ARRANGEMENT  OE  THE  OUTPUT  DATA./)  CBM  TOT 
WR!TE( KOUT ,554 )  TH , TS , ( SO(  I ) . I  =  1 , NO  I )  CBH  396 
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WRI  c  1 KOUT , 553 ) 

CBM 

397 

553 

r* 

FORMAT  ( //6X, 1 1H0UT  PU 1  DATA//) 

CBM 

102 

DO  4  K=1 ,KK 

READ  (KSCT ,4102)  T H , TS . ( T0( 1 ) , 1 =1 ,20 

). 

CBM 

398 

1  (  (DEP(  1  ,J)  ,  1-1  ,  lu)  ,.l=1  ,5)  ,(NISO(  1  )  ,  1 

=1,10) 

DO  805  1=1 , N 1 

IF  (N.LT.NISO( 1 ) )  N-N 1 S0( 1 ) 

CBM 

400 

805 

CONTINUE 

CALL  L COUNT (  1  .ICl.NPG) 

CBM 

403 

4 

WRITE  (KOUT, 554)  TH.TS,  (TO(l),  1=1, 

1 F ( NUMN . L  T . NBM)  00  TO  1 

1  F  (  N  1  *'  .  LE  .  0 )  GO  TO  1 

REWIND  KSCT 

NCI  ) 

CBM 

405 

CALL  LCOUNT (-7,LCT,NPG) 

WR 1 TE ( KOUT ,560 ) 

CBM 

410 

560 

FORMAT (/6X66HTHF  1  01. t  OWING  BLOCK  GIVES 

THE  OUTPUT  TIME  AND 

UP  TO  FCBM 

414 

1 1 VE  LOCATIONS  /  6X.55HOF  The  INDICATED 

ISOTHERMS  WITHIN  THE 

BACKUPCBM 

415 

2  MATERIALS. ) 

CBM 

416 

J=N0+1 

CBM 

411 

WRITE (KOUT, 7041  )  (  S0( 1 ) , 1 = J,NO 1 ) 

CBM 

412 

7041 

F  ORMAT ( // 1 2X , 9 ( 2X , F 10.4) ) 

CBM 

417 

WRiTE( KOUT, 7042) 

CBM 

413 

7042 

c 

FORMAT ( / ) 

CBM 

418 

u 

DO  804  K=  1  ,KK 

READ  (KSCT, 4102)  TH  ,TS  ,  (T0(  1  )  ,  1 -- 1  ,20)  , 

CBM 

419 

1  ( (DEP(  i  ,J)  ,  1  =  1 ,10)  ,J-1 .5) ,(N;SO( 1 ), 1  = 

1.10) 

DO  804  J= 1 , N 

CALL  LCOUNT (  1  ,LCT  ,NPO) 

CBM 

421 

804 

WRITE (KOUT, 554)  TH  ,  ( Df P ( I , J) , 1  =  1 , N 1 ) 

CBM 

423 

GO  TO  1 

CBM 

424 

1 151 

IF(TH.LT.TPR2-C. 00001)  GO  TO  154 
DTPRT=DTPR2 

DTPR2=DTPR3 

CBM 

427 

TPR2=TPR3 

CBM 

42B 

TPR3=THF IN 

CBM 

429 

154  I F ( TH.GE  . THPRT -0.0000 1 )  TKPRT=AM I N 1 ( THPRT+DTPRT , TPR2 ) 
RETURN 


1  JJJ  =  1 
RETURN 
END 
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APPENDIX  B 


Surface  Energy  Balance  Equation  in  CMA 


peueCH(Hr  -  h„) 


Convective 
heat  transfer 


+  pe  Ue 


(“)  wk  +  pt'hg 

Chemical  energy 
transfer 


P'hw) 


+ 


O-  n  Q rad  I'OE  w  1  ,  Qcond  ^  t 

Radiative  Radiation  Conduction 
heating  loss  to  wall 


where 

pe  =  density  at  outer  edge  of  boundary  layer, 
ue  =  velocity  of  gases  at  edge  of  boundary  layer, 

CH  =  Stanton  number, 

Hr  =  recover  enthalpy, 

CM  -  mass  transfer  Stanton  number, 

Pc  -  mass  loss  param.eter  of  char  (equals  mc/pe ueCM), 

PJ  =  mass  loss  parameter  of  pyrolysis  gases  (equals  m./p„u,CM), 

P'  =  Pc  +  Pg  (equals  (mc  +  me)/{peueCM)), 

hc  =  enthalpy  of  char, 

hg  =  enthalpy  of  pyrolysis  gas, 

hw  =  enthalpy  of  gases  at  wall  (heated  surface), 

aw  -  absorptance, 

<7rad  =  radiation  input  to  ablating  surface, 

F  =  radiation  view  factor, 
a  =  Stefan-Boltzmann  constant, 

=  emissivity, 

Tw  =  wall  (surface)  temperature,  and 
<7cond  -  conduction  into  ablating  material. 
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User’s  Guide  for  CMA  Code  with  Routines  to  Merge  Hunter  Graphite 
Oxidation  Subroutines  with  CMA  Ablation  Calculations 

The  new  input  variables  (Table  C.l)  are  listed  on  a  single  line,  which  is  the  last 
line  in  the  CMA  input  file.  This  line  is  an  addition  to  the  previous  format  and 
must  be  present  whether  the  new  features  are  used  or  not.  It  follows  the  existing 
JTBL  parameter,  which  is  used  to  select  the  method  for  computing  graphite  oxi¬ 
dation  (i.e.,  values  are  either  read  from  the  surface  thermochemistry  (ST)  tables 
in  CMA  or  computed  by  the  Hunter  subroutine.) 


Table  C.l 

New  inputs  for  CMA  code. 


Variable  Columns  Format 


Description 


IBLOPT  1  5 
IOPTN  6-10 


TCRIT  11-20 

BPCRIT  21-30 

IMSG  31-35 


TABCN  36-45 


MITER  46-50 


15  Not  used 

15  Merge  Hunter  subroutine  and  surface  thermo¬ 

chemistry  table  ablation  curves. 

0  =  This  feature  not  evoked. 

1  =  Merge  curves  at  constant  wall  temper¬ 

ature  (TCRIT). 

2  =  Merge  curves  at  wall  temperature 

corresponding  to  a  constant  value 
of  6'  (BPCRIT). 

3  =  Search  for  temperature  that  produces 

smoothest  curve. 

FI 0.4  Constant  wall  temperature  at  which  Hunter 
and  surface  thermochemistry  table  ablation 
curves  are  merged.  This  parameter  is  only 
used  when  IOPTN  =  1. 

F10.4  Value  of  6'  criterion  for  Finding  merge  tem¬ 
perature.  This  parameter  is  only  used  when 
IOPTN  =  2. 

15  Status  messages  for  new  features. 

0  =  Do  not  print  any  messages. 

1  =  Print  1st  level  messages. 

2  =  Print  1st  and  2nd  level  messages. 

3  =  Print  1st,  2nd  and  3rd  level  messages. 
IMSG  =  2  and  3  are  primarily  for 

debugging. 

They  will  produce  significant  output. 

F10.4  Computes  ablation  threshold  temperature  for 
ablating  material. 

<  =  0.0,  Search  for  threshold  temperature. 
>  =  0.0,  Material  ablates  at 
TwtS  >  TABCN. 

This  feature  is  only  active  when 
IOPTN  pe  0. 

15  Frequency  at  which  merge  factor  and  material 
ablation  threshold  icmj>craiurc  is 
recomputed. 
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The  first  input  variable,  IOPTN,  evokes  the  routines  that  merge  the  Hunter  oxi¬ 
dation  subroutine  with  the  mainstream  CMA  calculations.  The  merge  routines  cause 
the  Hunter  subroutine  to  be  used  for  the  oxidation  calculations  and  the  ST  tables 
to  be  used  for  the  sublimation  calculations.  They  also  compute  and  apply  a  factor 
(merge  factor)  on  the  Hunter  ablation  curve,  which  makes  it  continuous  with  the 
ST  ablation  curve. 

The  user  has  three  options  for  specifying  the  transition  temperature  criterion  (for 
switching  from  the  Hunter  subroutine  to  the  ST  tables).  The  transition  can  be  at 
a  constant  wall  temperature  (TCRIT),  at  the  temperature  that  corresponds  to  a 
constant  value  of  /S'  (BPCRIT),  or  found  using  a  procedure  that  searches  for  the 
temperature  that  gives  the  smoothest  transition  between  the  Hunter  and  ST  abla¬ 
tion  curves.  As  a  warning,  these  methods  increase  in  complexity  from  the  user- 
specified  constant  temperature  criteria  to  the  search  for  the  smoothest  merge  tem¬ 
perature,  and  computation  time  will  also  increase.  The  first  two  options  are  rela¬ 
tively  inexpensive  and  the  last  is  most  expensive. 

The  input  variable  TABCN  is  used  to  specify  the  temperature  at  which  the  ma¬ 
terial  begins  to  ablate  (i.e.,  an  ablation  threshold  temperature).  The  user  can  speci¬ 
fy  a  constant  ablation  threshold  temperature  or  he  can  activate  the  FDTABC 
module,  which  computes  this  value  using  a  rewritten  form  of  the  Hunter  algorithm 
for  a  temperature  corresponding  to  a  negligible  value  of  /S'  (0.00001).  This  feature 
is  only  active  when  the  Hunter  subroutine  and  the  merge  feature  are  evoked. 

The  input  variable  MITER  is  the  frequency  of  iteration  steps  at  which  the  merge 
factor  and  the  ablation  threshold  temperature  are  recomputed.  For  a  trajectory 
with  severe  transients,  these  values  should  be  recomputed  every  iteration  step.  On 
the  other  hand,  for  a  trajectory  with  small  transients,  recomputing  every  five  itera¬ 
tions  may  be  sufficient.  When  MITER  is  a  value  other  than  1,  the  user  should 
run  a  sample  problem  to  verify  that  the  merge  factors  and  ablatv  r  temperatures 
do  not  change  drastically  between  iterations. 

The  last  input  variable,  IMSG,  is  used  to  print  status  messages  for  the  merge 
and  ablator  temperature  operations  with  the  normal  CMA  output.  Four  levels  of 
messages  are  available.  Most  users  will  want  none  or  first-level  messages  only.  The 
other  levels  are  primarily  for  debugging. 

The  executable  program  is  called  CMAV05.  It  is  saved  in  the  partitioned  dataset 
‘BBE.CCC1.LOAD.MODULES’. 
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APPENDIX  D 

Sample  Input  File  Using  New  CMA  Code 


//CCC1H  JOB  (  1  1655,C,U,N)  , 1 CCC 1 1 , USER=CCC 1 , NOT  I F Y=CCC 1 ,MSGCLASS=C 
//•MAIN  ORG=RMO0 1  _ _ _ _ — - 1 


//•  SAMPLE  JCL  SET 
//  EXEC  PGMMCMaVO 
//STEPLIB  OD  DSN=fi 
//FT03F001  DD  U 
//  DCB=(RE 

//  SPACE=( 

//FT06F001  DD  DSN 
//  UN  I T=SA 

//  SPACE= ( 

//FT08F001  DD  D 
FT05f  001  DD  • 


jcl  set  ^ Executable  program 

^M=|CMaV0S1RlGI0N^200UK  ,T  IME  =  1  - 

D  DSN=EBE  .CCCI  .LOAD  .MODULES  .PI  SP=SHR  17777: 

DD  UN  I  T=TEMP ,  _ Wri 

DCB=(RECFM=VB,LRECL=1200,BLKSIZE=4804) , 

SPACE  =  (1RK .  (10,5)  ,RLSE)  - 

DD  OSNNfiBE .C5cl  '  CMA.FOR  ,PTB  .ODTPUI'miTP  ISP  =  (  NEW.CATLG)  . 

UN  I T=SAVE ,DCB  = ( RECf M=VISA .LRECL = 1 37 ,BLKS I ZE=6233 ,BUF N0= 1 ) , 
SPACE= ( CYL , ( 120,60) ,RLSE ) 


Write  output  to 
dataset 


DUMMY 


FLIGHT  PATH  ANCLE  = 
SAMPLE  JCL  SET 


( CMAV05 ) 


A 

1  14.7 

114.7 

0. 

0. 

0. 

15000. 

B 

114.7 

114.7 

0. 

0. 

0. 

15000. 

C 

114.7 

114.7 

0. 

0. 

0. 

15000. 

10  40 

0.0 

50.00 

1.00 

5.00 

2.00 

0.100 

0.5 

HiHiHHBIill 

0.0 

0.0 

1 

1110. 

.005 

-1.0634 

1 

1116. 

.010 

1 

1116. 

.010 

1 

1121. 

.010 

1 

1  121. 

.010 

1 

1121. 

.010 

1 

1126. 

.010 

1 

1126. 

.010 

1 

1126. 

.010 

1 

1131. 

.010 

1 

1131. 

.010 

* 

1131. 

.010 

i 

1136. 

.010 

i 

1136. 

.010 

i 

1136. 

.010 

i 

1141. 

.010 

i 

1141. 

.010 

i 

1141. 

.010 

i 

1149. 

.010 

i 

1149. 

.005 

3 

1 192. 

.020 

3 

1222. 

.020 

3 

1252. 

.020 

3 

1283. 

.010 

4 

1331. 

.010 

4 

1336. 

.020 

4 

1341. 

.040 

4 

1346. 

.040 

4 

1351. 

.040 

4 

1356. 

.0165 

5 

1532. 

.01338 

5 

1546. 

.01339 

6 

1711. 

.010 

.06267 

6 

1716. 

.020 

.06267 

6 

1726. 

.040 

.06267 

6 

1742. 

.080 

.06267 

Nodal  data 

Up  to  100  nodes  permitted 


0.014 


0.0155 
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6  1774. 

.100 

.06267 

6  1814. 

.  100 

.06267 

6  1854. 

.100 

.06267 

6  1894. 

.10143 

.06267 

0,0 

0.0 

0. 

0.02 

0.98 

460.0 

0.175 

0.02778 

0.80 

0.80 

710.0 

0.225 

0.02315 

0.80 

0.80 

960.0 

0.290 

0.02014 

0.80 

0.80 

1210.0 

0.330 

0.01759 

0.80 

0.80 

1460.0 

0.360 

0.01551 

0.80 

0.80 

1710.0 

0.390 

0.01377 

0.80 

0.80 

1960.0 

0.410 

0.01243 

0.80 

0.80 

2210.0 

0.430 

0.01123 

0.80 

0.80 

2460.0 

0.450 

0.01076 

0.80 

0.80 

2960.0 

0.480 

0.00909 

0.80 

0.80 

•3460.0 

0.510 

0.00828 

0.80 

0.80 

3960.0 

0.530 

0.00741 

0.80 

0.80 

4460.0 

0.550 

0.00694 

0.80 

0.80 

5460.0 

0.575 

0.00625 

0.80 

0.80 

1  7960.0 

0.575 

0.00625 

0.80 

0.80 

460.0 

0.175 

0.02778 

0.80 

0.80 

710.0 

0.225 

0.02315 

0.80 

0.60 

960.0 

0.290 

0.02014 

0.80 

0.80 

1210.0 

0.330 

0.01759 

0.80 

0.80 

1460.0 

0.360 

0.01551 

0.80 

0.80 

1710.0 

0.390 

0.01377 

0.80 

0.80 

1960.0 

0.410 

0.01243 

0.80 

0.80 

2210.0 

0.430 

0.01123 

0.80 

0.80 

2460.0 

0.450 

0.01076 

0.80 

0.80 

2960.0 

0.480 

0.00909 

0.80 

0.80 

3460.0 

0.510 

0.00828 

0.80 

0.80 

3960.0 

0.530 

0.00741 

0.80 

0.80 

4460.0 

0.550 

0.00694 

0.80 

0.80 

5460.0 

0.575 

0.00625 

0.80 

0.80 

1  7960.0 

3014.40 

0.575 

0.00625 

0.80 

0.80 

672.0 

0.214 

0.0000122 

0.80 

0.80 

852.0 

0.265 

0.0000144 

0.80 

0.80 

1032.0 

0.312 

0.0000169 

0.80 

0.80 

1212.0 

0.351 

0.0000197 

0.80 

0.80 

1392.0 

0.380 

0.0000225 

0.80 

0.80 

1572.0 

0.406 

0.0000239 

0.80 

0,80 

1752.0 

0.424 

0.0000253 

0.80 

0.80 

1932.0 

0.440 

0.0000267 

0.80 

0.80 

2112.0 

0.450 

0.0000281 

0.80 

0.80 

2292.0 

0.461 

0.0000297 

0.80 

0.80 

2472.0 

0.470 

0.0000311 

0.80 

0.80 

2652.0 

0.478 

0.0000325 

0.80 

0.80 

2632.0 

0.462 

0.0000339 

0.80 

0.80 

3012.0 

0.487 

0.0000356 

0.80 

0.80 

3460.0 

0.500 

0.0000392 

0.80 

0.80 

4460.0 

0.520 

0.0000475 

0.80 

0.80 

1  10460.0 

40114.7 

0.520 

0.0000503 

0.80 

0.80 

460.0 

0.175 

0.02778 

0.80 

0.80 

710.0 

0.225 

0.02315 

0.80 

0.80 

960.0 

0.290 

0.02014 

0.80 

0.80 

1210.0 

0.330 

0.01759 

0.80 

0.80 

1460.0 

0.360 

0.01551 

0.80 

0.80 

1710.0 

0.390 

0.01377 

0.60 

0.80 
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1960.0 

0.410 

0.01243 

0.80 

2210.0 

0.4  30 

0.01123 

0.80 

2460.0 

0.450 

0.01076 

0.80 

2960.0 

0.480 

0.00909 

0.80 

3460.0 

0.510 

0.00828 

0.80 

3960.0 

0.530 

0.00741 

0.80 

4460.0 

0.550 

0.00694 

0.80 

5460.0 

0.575 

0.00625 

0.80 

1  7960.0 

0.575 

0.00625 

0.80 

501625. 

460.0 

0.0306 

0.0239 

0.084 

1460.0 

0.0347 

0.0219 

0.137 

2460.0 

0.0388 

0.0212 

0. 191 

3460.0 

0.0429 

0.0182 

0.242 

4460.0 

0.0470 

0.0181 

0.298 

4910.0 

0.0470 

0.0181 

0.620 

1  10460.0 

0.0470 

0.0181 

0.620 

60590. 

460. 

.0587 

.0000664 

.591 

560. 

.0620 

.0000672 

.599 

1032. 

.0780 

.0000705 

.643 

1212. 

.0794 

.0000739 

.659 

1392. 

.0805 

.0000875 

.676 

1572. 

.0811 

.0000903 

.692 

1752. 

.0817 

.000093 1 

.709 

1932. 

.  082  1 

.0001514 

.725 

2112. 

.0825 

.0001639 

.742 

2472. 

.0830 

.000  1892 

.775 

2652. 

.0832 

.0002017 

.791 

2960. 

.0835 

.0002075 

.819 

3460. 

.0838 

.0002167 

.865 

4460. 

.0840 

.0002355 

.911 

5460. 

.0840 

.0002542 

.956 

•110460. 

.0840 

.0002542 

.956 

1  0. 

5000 . 

10000. 

.  1 

.  1 

.  1 

. 12. Q 

1.700 

0.800 

1.000 

0.0 

43622.8 

0.09 

42.628 

0.25 

43629.4 

0. 19 

57.119 

0.50 

43636.2 

0.37 

78.014 

0.75 

43644  2 

0.74 

107.316 

1.00 

43650.8 

1.47 

150.322 

1.25 

43657.4 

2.91 

211.254 

1.50 

43661.9 

5.78 

293.281 

1.75 

4  365/  .4 

15  -  38 

407. 1 15 

2.00 

4  3640.  1 

44.94 

547.836 

2.25 

43598.2 

110.79 

713.722 

2.50 

43514.7 

244 . 76 

912.271 

2.75 

43367.6 

493.88 

1  145.763 

3.00 

43126.7 

899.27 

1414,083 

3.25 

42748.6 

1581.84 

1727.713 

3.50 

42164.8 

2605.7  7 

2093.353 

3.75 

41290.5 

4 191 .64 

2489.822 

3.95 

40277.6 

6032.64 

2847.254 

4 . 10 

39338.6 

7685.46 

3  103.646 

4.22 

38443.3 

9158. 19 

3310.637 

4.32 

37530.3 

10478 .05 

3491 . 145 

4.42 

36476.7 

1 1885 . 39 

3656.354 

4.52 

35269.6 

13268.  12 

3798.086 

4.62 

33899.2 

14236.21 

3906.083 

0.80 
0.80 
0.80 
0.80 
0 . 80 
0.80 
0.80 
0.80 
0.80 

0.084 

0.137 

0.191 

0.242 

0.298 

0.620 

0.620 

.591 

.599 

.643 

.659 

.676 

.692 

.709 

.725 

.742 

.775 

.791 

.819 

.865 

.911  Time-table 

.956 

•  956  1 20  entries  permitted 


1.000  00000  8000 


22773 

0.00034 

1W70~ 

467116. 

0.0 

40.78 

0.00062 

3  36.3 

46753. 

0.0 

76.04 

0.00115 

324  .o 

46760. 

0.0 

143.82 

0.00218 

313.7' 

46767. 

0.0 

282.07 

0 ,0Q4_8 

30  ;  ; 

46773. 

0.0 

556.89 

0.00844 

289.6 

46778. 

0.0 

1073. 1  3 

0.01626 

277.9 

46780. 

0.0 

2068.20 

0,03135 

266.2 

46773. 

0.0 

3748.09 

0.05682 

264.5 

46766. 

0.0 

6373.13 

0.09667 

242.6 

46741. 

0.0 

10447.53 

0.  15864 

23'  .2 

46693. 

0.0 

16575.96 

0.25214 

219.5 

46610. 

0  .0 

25487.52 

0.38881 

207.9 

46478. 

0.0 

38610.24 

0.55 

'15.3 

46271. 

0.0 

5/988.98 

07«'? 

184.8 

45953. 

0.0 

0.0 

1  .  2 

173.3 

45472. 

0.0 

0.0 

1.8  <2 

164. 1 

4491  1 . 

0.0 

0.0 

2.28340 

157.6 

44335. 

0.0 

0.0 

2.72976 

152.5 

43677. 

0.0 

0.0 

3  .  19620 

14?  2 

43354. 

0.0 

0.0 

3.72678 

143  9 

42743. 

0.0 

0.0 

4.32249 

139.6 

42031. 

0.0 

0.0 

4.97773 

U5.5 

41207. 

0.0 
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4.72 

32359.8 

14945.10 

3972.378 

0.0 

5.68821 

131.4 

40262. 

0.0 

4.82 

30652.5 

14640.01 

3986.267 

0.0 

6.43489 

127.4 

39187. 

0.0 

4.92 

28786.5 

13722.39 

3941.544 

0.0 

7.19944 

123.6 

37978. 

0.0 

5.02 

26780.8 

11248.63 

3833.005 

0.0 

7.95015 

119.8 

36633. 

0.0 

5.12 

24664.1 

8495.31 

3660.946 

0.0 

8.65439 

116.2 

35158. 

0.0 

5.22 

22475.3 

5570.58 

3430.057 

0.0 

9.27424 

1 12.8 

33564. 

0.0 

5.32 

20260.3 

2822.21 

3150.542 

0.0 

9.77572 

109.5 

31870. 

0.0 

5.42 

18067.8 

1225.46 

2836.325 

0.0 

10.13010 

106.4 

30100. 

0.0 

5.52 

15950.3 

655.31 

2498.031 

0.0 

10.26720 

103.5 

28285. 

0.0 

5.62 

13958.3 

380.10 

2159.229 

0.0 

10.21262 

100.8 

26464. 

0.0 

5.72 

12123.1 

233.62 

1836.626 

0.0 

9.99701 

98.2 

24667. 

0.0 

5.82 

10462.5 

0.0 

1541.068 

0.0 

9.65201 

95.9 

22920. 

0.0 

5.92 

8984.2 

0.0 

1278.214 

0.0 

9.20298 

93.6 

21245. 

0.0 

6.02 

7686.5 

0.0 

1050.029 

0.0 

8.67376 

91.6 

19657. 

0.0 

■6. 12 

6560.5 

0.0 

856.810 

0.0 

8.10546 

89.7 

18167. 

0.0 

6.22 

5592.5 

0.0 

695.483 

0.0 

7.51296 

88.0 

16781. 

0.0 

6.32 

4766.5 

0.0 

562.809 

0.0 

6.92184 

86.4 

15500. 

0.0 

6.42 

4065.3 

0.0 

454.782 

0.0 

6.34671 

84.9 

14323. 

0.0 

6.52 

3472.2 

0.0 

367.437 

0.0 

5.79764 

83.5 

13247. 

0.0 

6.62 

2971.6 

0.0 

297.232 

0.0 

5.28342 

82.2 

12265. 

0.0 

6.72 

2549.5 

0.0 

240.911 

0.0 

4.80546 

81 .0 

11371. 

0.0 

6.82 

2193.5 

0.0 

195.823 

0.0 

4.36690 

79.9 

10558. 

0.0 

6.92 

1893.0 

0.0 

159.760 

0.0 

3.96887 

78.9 

9821. 

0.0 

7.02 

1638.9 

0.0 

130.827 

0.0 

3.60677 

78.0 

9150. 

0.0 

7.12 

1423.6 

0.0 

107.592 

0.0 

3.28012 

77.1 

8542. 

0.0 

7.22 

1240.6 

0.0 

88.869 

0.0 

2.98537 

76.3 

7988. 

0.0 

7.32 

1084.8 

0.0 

73.742 

0.0 

2.72031 

75.5 

7484. 

0.0 

7.42 

951.6 

0.0 

61.477 

0.0 

2.48248 

74.8 

7025. 

0.0 

7.52 

837.4 

0.0 

51.489 

0.0 

2.26866 

74.1 

6605. 

0.0 

7.62 

739.2 

0.0 

43.326 

0.0 

2.07687 

73.4 

6222. 

0.0 

7.72 

654.4 

0.0 

36.622 

0.0 

1.90437 

72.8 

5872. 

0.0 

7.82 

580.9 

0.0 

29 . 762 

0.0 

1.74954 

72.3 

5550. 

0.0 

7.92 

517.1 

0.0 

25.146 

0.0 

1 .60959 

71.7 

5255. 

0.0 

8.02 

461.4 

0.0 

21.317 

0.0 

1 .48443 

71.2 

4983. 

0.0 

8.12 

412.7 

0.0 

19.111 

0.0 

1.30149 

70.7 

4732. 

0.0 

8.22 

370.0 

0.0 

16.358 

0.0 

1.20827 

70.3 

4501. 

0.0 

8.32 

332.4 

0.0 

14.038 

0.0 

1.12320 

69.8 

4287. 

0.0 

8.42 

299.1 

0.0 

12.082 

0.0 

1.04621 

69.4 

4088. 

0.0 

8.52 

269.7 

0.0 

10.424 

0.0 

0.97597 

69.0 

3904. 

0.0 

8.62 

243.5 

0.0 

9.016 

0.0 

0.91209 

68.6 

3733. 

0.0 

8.72 

220.3 

0.0 

7.817 

0.0 

0.85384 

68.3 

3574. 

0.0 

8.82 

199.4 

0.0 

6.791 

0.0 

0.80061 

67.9 

3425. 

0.0 

8.92 

180.8 

0.0 

5.912 

0.0 

0.75187 

67.6 

3287. 

0.0 

9.02 

164.1 

0.0 

5.156 

0.0 

0.70713 

67.3 

3157. 

0.0 

9.12 

149.0 

0.0 

4.505 

0.0 

0.66623 

67.0 

3036. 

0.0 

9.22 

135.4 

0.0 

3.941 

0.0 

0.62852 

66.7 

2922. 

0.0 

9.32 

123.1 

0.0 

3.452 

0.0 

0.59369 

66.4 

2815. 

0.0 

9.42 

112.0 

0.0 

3.029 

0.0 

0.56188 

66. 1 

2714. 

0.0 

9.52 

101.9 

0.0 

2.659 

0.0 

0.53219 

65.8 

2620. 

0.0 

9.62 

92.7 

0.0 

2.336 

0.0 

0.50467 

65.6 

2530. 

0.0 

9.72 

84.3 

0.0 

2.055 

0.0 

0.47939 

65.3 

2446. 

0.0 

9.82 

76.7 

0.0 

1.808 

0.0 

0.45584 

65.1 

2367. 

0.0 

9.92 

69.7 

0.0 

1.591 

0.0 

0.43416 

64.8 

2292. 

0.0 

10.02 

63.3 

0.0 

1.400 

0.0 

0.41389 

64.6 

2221. 

0.0 

10. 12 

57.4 

0.0 

1.232 

0.0 

0.39519 

64.4 

2153. 

0.0 

10.22 

52.0 

0.0 

1.083 

0.0 

0.37778 

64.2 

2090. 

0.0 

10.32 

47.0 

0.0 

0.951 

0.0 

0.36154 

64.0 

2029. 

0.0 

10.42 

42.4 

0.0 

0.834 

0.0 

0.34638 

63.8 

1971 . 

0.0 

10.52 

38.2 

0.0 

0.730 

0.0 

0.33219 

63.6 

1917. 

0.0 

10.62 

34.2 

0.0 

0.637 

0.0 

0.31903 

63.4 

1865. 

0.0 
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10.72 

30.6 

0.0 

0.554 

0.0 

0.30668 

63.2 

1815. 

0.0 

10.82 

27.2 

0.0 

0.480 

0.0 

0.29520 

63.0 

1768. 

0.0 

10. 

92 

24.0 

0.0 

0.414 

0.0 

0.28440 

62.9 

1722. 

0.0 

11. 

02 

21.1 

0.0 

0.355 

0.0 

0.27424 

62.7 

1679. 

0.0 

11. 

22 

15.8 

0.0 

0.254 

0.0 

0.25582 

62.4 

1599. 

0.0 

11. 

42 

11.2 

O.0 

0.172 

0.0 

0.23956 

62. 1 

1525. 

0.0 

1 1 . 

62 

7.1 

0.0 

U.105 

0.0 

0.22500 

61.8 

1456. 

0.0 

1 1 . 

84 

3.3 

0.0 

0.047 

0.0 

0.21’29 

61.4 

1389. 

0.0 

12. 

06 

-0.1 

0.0 

-0.002 

0.0 

0.19695 

61.1 

1325. 

0.0 

12. 

46 

-5.0 

0.0 

-0.064 

0.0 

0.18129 

60.6 

1229. 

0.0 

12. 

91 

-9.4 

0.0 

-0.112 

0.0 

0.16557 

60.1 

1136. 

0.0 

13.43 

-13.4 

0.0 

-0.149 

0.0 

0.15199 

59.5 

1046. 

0.0 

14. 

07 

-16.8 

0.0 

-0.176 

0.0 

0.14087 

58.9 

959. 

0.0 

14. 

86 

-19.9 

0.0 

-0.197 

0.0 

0.13228 

58.2 

875. 

0.0 

19. 

65 

-27.7 

0.0 

-0.234 

0.0 

0.12044 

54.7 

614. 

0.0 

29. 

43 

-31 . 1 

0.0 

-0.249 

0.0 

0.13572 

49.7 

452. 

0.0 

39.43 

-32.1 

0.0 

-0.263 

0.0 

0.15994 

45.5 

392. 

0.0 

49. 

43 

-32.7 

0.0 

-0.278 

0.0 

0.18739 

41.8 

355. 

0.0 

59.43 

-33.1 

0.0 

-0.292 

0.0 

0.21725 

36.4 

326. 

0.0 

69. 

43 

-32.6 

0.0 

-0.297 

0.0 

0.24953 

35.2 

301 . 

0.0 

79.43 

-30.3 

0.0 

-0.286 

0.0 

0.28359 

32.3 

284. 

0.0 

89. 

43 

-28.1 

0.0 

-0.275 

0.0 

0.31953 

29.5 

269. 

0.0 

99. 

43 

-26.0 

0.0 

-0.262 

0.0 

0.35737 

26.9 

257. 

0.0 

109. 

43 

-24.0 

0.0 

-0.249 

0.0 

0.39695 

24.4 

245. 

0.0 

119. 

43 

-22.0 

0.0 

-0.236 

0.0 

0.43827 

22.0 

235. 

0.0 

129. 

43 

-20.2 

0.0 

-0.221 

0.0 

0.48124 

19.7 

226. 

0.0 

139. 

43 

-18.3 

0.0 

-0.206 

0.0 

0.52610 

17.5 

218. 

0.0 

149. 

43 

-16.6 

0.0 

-0.191 

0.0 

0.57253 

15.3 

210. 

0.0 

159. 

43 

-14.9 

0.0 

-0.175 

0.0 

0.62049 

13.3 

203. 

0.0 

169.43 

-13.2 

0.0 

-0.159 

0.0 

0.67020 

11.3 

197. 

0.0 

179. 

43 

-11.6 

0.0 

-0.143 

0.0 

0.72130 

9.3 

191 . 

0.0 

189. 

43 

-10.0 

0.0 

-0.126 

0.0 

0.77405 

7.5 

186. 

0.0 

199.43 

-8.5 

0.0 

-0.109 

0.0 

0.82833 

5.6 

150. 

0.0 

209. 

43 

-7.0 

0.0 

-0.091 

0.0 

0.68426 

3.8 

176. 

0.0 

219. 

43 

-5.5 

0.0 

-0.074 

0.0 

0.94171 

2.1 

1  .’1 . 

0.0 

229. 

43 

-4.1 

0.0 

-0.056 

0.0 

1.00058 

0.4 

167. 

0.0 

1  231.97 

-3.8 

0.0 

-0.051 

0.0 

1.01555 

0.0 

166. 

0.0 

1. 

1.0  0.5  0 

0 

0  0 

0. 

~ 15TC 

60.000002687.99220.0 6928.273  6920.273  1  C* 

t  1 

0.00001 

0.0 

50.000002687.65360.0  6903.277  6903.277  1 

C* 

C  1 

0.00001 

0.0 

30.000002686.10300.0  6810.352  6810,352  1 

c* 

C  1 

0.00001 

0.0 

20.000002684.24730.0  6695.957  6695.957  1 

c« 

C  1 

0.00001 

0.0 

10.000002679.02490.0  6369.059  6369.059  1 

c» 

C  1 

0.00001 

0.0 

5.000002669.34200.0  5792.414  5792.414  1 

c* 

C  1 

0.00001 

0.0 

1.000002613.71970.0  3182.023  3 

182.023  1 

c* 

C  1 

0.00001 

0.0 

0.350002525.43990.0  1236.478  1236.478  1 

c* 

C  1 

0.00001 

0.0 

0.200002394.70140.0 

433.386 

433.386  1 

c* 

C  1 

0.00001 

0.0 

0.190002359.54710.0 

362.322 

362.322  1 

c* 

C  1 

0.00001 

0.0 

0.1S0002253. 43990.0 

275-831 

275.831  1 

c» 

C  1 

0.00001 

0.0 

0.175001986.69210.0 

150.001 

150.001  1 

c* 

C  1 

0.00001 

0.0 

0.174911729.07060.0 

70.276 

70.276  1 

c» 

C  1 

0.00001 

0.0 

0. 1748 

1666.67 

0.0 

51.10 

51.10  1 

c* 

0.00001 

0.0 

0.1743 

1450.0 

0.0 

-15.3 

-15.3  1 

c» 

GE 

0.00001 

0.0 

0.1686 

1350.0 

0.0 

-62.9 

-62.9  1 

c» 

GE 

0-00001 

0.0 

0.1252 

1250.0 

0.0 

238.5 

- 

238.5  1 

c* 

CE 

n. 00001 

0.0 

0.0613 

1200.0 

0.0 

349.1 

- 

349.1  1 

c» 

GE 

0 . 0000 1 

0.0 

0.0429 

1150.0 

0.0 

-98.4 

- 

98.4  1 

c» 

GE 

0.00001 

0.0 

0.0193 

1100.0 

0.0 

60.4 

60.4  i 

c» 

GE 

0.00001 

0.0 

0.0027 

1000.0 

0-0 

159.2 

159.2  1 

c* 

GE 

0.00001 

0.0 

0.0 

1000.0 

0.0 

250.0 

250.0  0 

AIR 

Surface  thermochemistry  tables 

20  pressure  tables  with  up  to 

30  mass  loss  parameters  {p'c  }  permitted. 
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0.00001 

0.0 

0.0 

500.0 

0.0 

120.1 

120.1 

0 

AIR 

0.00001 

0.0 

0.0 

260.0 

0.0 

62.2 

62.2 

0 

0.00001 

0.0 

0.0 

240.0 

0.0 

57.4 

57.4 

0 

air 

0.00001 

0.0 

0.0 

200.0 

0.0 

47.8 

47.8 

0 

AIR 

0.00001 

0.0 

0.0 

180.0 

0.0 

43.0 

43.0 

0 

0.00001 

0.0 

0.0 

140.0 

0.0 

33.4 

33.4 

0 

0.00001 

0.0 

0.0 

100.0 

0.0 

23.9 

23.9 

0 

0.00001 

0.0 

0.0 

.0001 

0.0 

0.0 

0.0 

0 

0.0001 

0.0 

60.000002881.59230.0 

6901.996 

6901.996 

1 

c* 

C  1 

0.0001 

0.0 

50.000002881 . 18430.0 

6877.484 

6877.484 

1 

c* 

C  1 

0.0001 

0.0 

30.000002879.33280.0 

6786.594 

6786.594 

1 

c* 

C  1 

0.0001 

0.0 

20.000002877. 12400.0 

6674.496 

6674.496 

1 

c« 

C  1 

0.0001 

0.0 

10.000002870.92460.0 

6353.332 

6353.332 

1 

c* 

C  1 

0.0001 

0.0 

5.000002859.39650.0 

5783.715 

5783.715 

1 

c* 

C  1 

0.000.1 

0.0 

1 .000002794.39210.0 

3206.576 

3206.576 

1 

c* 

C  1 

0.0001 

0.0 

0.350002692.36210.0 

1279.992 

1279.992 

1 

c* 

C  1 

0.0001 

0.0 

0.200002542.22410.0 

478.635 

478.635 

1 

c* 

C  1 

0.0001 

0.0 

0. 190002501.90990.0 

406.375 

406.375 

1 

c* 

C  1 

0.0001 

0.0 

0.180002414.66060.0 

316.658 

316.658 

1 

c* 

C  1 

0.0001 

0.0 

0.175002078.76290.0 

178.367 

178.367 

1 

c* 

C  1 

0.0001 

0.0 

0. 17491  1794.63940.0 

90.524 

90.524 

1 

c* 

C  1 

0.0001 

0.0 

0.1748 

1666.67 

0.0 

51.10 

51 . 10 

1 

c* 

0.0001 

0.0 

0.1743 

1450.0 

0.0 

-15.3 

-15.3 

1 

c» 

GE 

0.0001 

0.0 

0 . 1686 

1350.0 

0.0 

-62.9 

-62.9 

1 

c» 

GE 

0.0001 

0.0 

0.1252 

1250.0 

0.0 

-238.5 

-238.5 

1 

c* 

GE. 

0.0001 

0.0 

0.0813 

1200.0 

0.0 

-349. 1 

-349.1 

1 

c» 

GE 

0.0001 

0.0 

0.0429 

1150.0 

0.0 

-98.4 

-96.4 

1 

c« 

GE 

0  000 1 

0.0 

0.0193 

1 100.0 

0.0 

60.4 

60.4 

1 

c* 

GE 

0.0001 

0.0 

0.0027 

1000.0 

0.0 

159.2 

159.2 

1 

c* 

GE 

0.0001 

0.0 

0.0 

1000.0 

0.0 

250.0 

250.0 

0 

AIR 

0.0001 

0.0 

0.0 

500.0 

0.0 

120.1 

120.1 

0 

AIR 

0.0001 

0.0 

0.0 

260.0 

0.0 

62.2 

62.2 

0 

0.0001 

0.0 

0.0 

240.0 

0.0 

57.4 

57.4 

0 

AIR 

0.0001 

0.0 

0.0 

200.0 

0.0 

47.8 

47.8 

0 

AIR 

0.0001 

0.0 

0.0 

180.0 

0.0 

43.0 

43.0 

0 

0.0001 

0.0 

0.0 

140.0 

0.0 

33.4 

33.4 

0 

0.0001 

0.0 

0.0 

100.0 

0.0 

23.9 

23.9 

0 

0.0001 

0.0 

0.0 

.0001 

0.0 

0.0 

0.0 

0 

0.001 

0.0 

60.000003105.77390.0 

6908.277 

6908.277 

1 

c* 

C  1 

0.001 

0.0 

50.000003  105. 19310.0 

6885,961 

6885.961 

1 

c# 

C  1 

0.001 

0.0 

30. 000003102. 95870.0 

6796.809 

6796.809 

1 

C“ 

C  1 

0.001 

0.0 

20.000003100.30180.0 

6686.586 

6686.586 

1 

c* 

C  1 

0.001 

0.0 

10.000003092.87520.0 

6170.063 

6370.063 

1 

c* 

C  1 

0.001 

0.0 

5  .000003079.07060.0 

5806.551 

5806.551 

1 

c* 

C  1 

0.001 

0.0 

1.000003002.35550.0 

3252.220 

3252.220 

1 

c* 

C  1 

0.001 

0.0 

O.35OOO2803.2O12O.O 

1335.477 

1335.477 

1 

c* 

C  1 

0.001 

0.0 

0.20000 

2708.93530.0 

530.768 

530.768 

1 

c* 

C  1 

0.C01 

0.0 

0. 190002662.217 

30.0 

456.612 

456.612 

1 

c» 

C  1 

0.001 

0.0 

0.  180002561. 16310.0 

362,507 

362.507 

1 

c* 

C  1 

0.001 

0.0 

0. 175002178.06250.0 

209.068 

209.068 

1 

c* 

C-  ! 

0.001 

0.0 

0. 174911863.28660.0 

111.481 

111.481 

c* 

5  i 

0.001 

0.0 

0.  1  748 

1666.67 

0.0 

51.10 

51  .  10 

1 

c* 

0.001 

0.0 

0.1743 

1450.0 

0.0 

-15.3 

-15.3 

1 

c* 

GE 

0.001 

0.0 

0.  1686 

1150.0 

0.0 

-62.9 

-62.9 

1 

c* 

GE 

0.001 

0.0 

0.1252 

1250.0 

0.0 

-238.5 

-238.5 

* 

c» 

CE 

0.001 

0.0 

0.0813 

1200.0 

0.0 

- ’49.1 

-349.1 

1 

c* 

GE 

0.001 

0.0 

0.0429 

1 150.0 

0.0 

98.4 

-98.4 

1 

c* 

CE 

0.001 

0.0 

0.0193 

1100.0 

0.0 

60.4 

60.4 

1 

c* 

GE 

0.001 

0.0 

0.0027 

1000.0 

0.0 

159.2 

159.2 

1 

c» 

GE 

0.001 

0.0 

0.0 

1000.0 

0.0 

250.0 

250.0 

0 

AIR 
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0.001 

0.0 

0.0  500.0 

0.0 

120.1 

120.1 

0 

AIR 

0.001 

0.0 

O.C  260.0 

o.c 

62.2 

62.2 

0 

0.001 

0.0 

0.0  240.0 

0.0 

57.4 

57.4 

0 

AIR 

0.001 

0.0 

0.0  200.0 

0.0 

47.8 

47.8 

0 

AiR 

0.001 

0.0 

o.o  180. r 

0.0 

43.0 

43.0 

0 

0.001 

0.0 

0.0  140.0 

0.0 

33.4 

33.4 

0 

0.001 

0.0 

0.0  100.0 

0.0 

23.9 

23.9 

0 

0.001 

0.0 

0.0  .0001 

0.0 

0.0 

0.0 

0 

0.0020 

0.0 

60.000003180.32350.0 

6917.563 

6917.563 

1 

c* 

0.0029 

0.0 

50.000003179.70170.0 

6895.371 

6895.371 

1 

c« 

0.0020 

o.c 

30.000003177.33230.0 

6806.711 

6806.711 

1 

c* 

0.0020 

0.0 

20. 000003174. 51440.0 

6697.027 

6697.027 

1 

c* 

0 . 0020 

0.0 

10. 000003166. 6l>920.0 

6381.750 

6381.750 

1 

c* 

0.0020 

0.0 

5.000003152.54980.0 

3819.109 

5819.109 

1 

c* 

0.0020 

0.0 

1.000003071 ,71800.0 

3270.276 

3270.276 

1 

c* 

0 . 0020 

0.0 

0.350002943.24220.0 

1363.521 

1363.521 

1 

c* 

0.0020 

0.0 

0.200002757.24390.0 

548.953 

548.95? 

i 

c* 

0.0020 

0.0 

0.190002707.18260.0 

472.821 

472.821 

c* 

0.0020 

0.0 

0.  180002599. 10890.0 

375.333 

375.333 

1 

c* 

0.0020 

0.0 

0.175002249. /5170.0 

231.768 

231.768 

1 

c* 

0.0020 

0.0 

0.174902161.85420.0 

203.622 

203.822 

1 

c* 

0.0020 

0.0 

0.1748  1666.67 

0.0 

51 . 10 

51.10 

1 

c* 

0.0020 

0.0 

0.1743  1450.0 

0.0 

-15.3 

-15.3 

1 

c* 

GE 

0.0020 

0.0 

9.1686  1350.0 

0.0 

-62.9 

-62.9 

1 

c* 

GE 

0.0020 

0.0 

0.1252  1250.0 

0.0 

-238.5 

-238.5 

1 

c* 

GE 

0.0020 

0.0 

0.0813  1200.0 

0.0 

-349.1 

-349.1 

1 

c* 

GE 

0.0020 

0.0 

0.0429  1150. 0 

c  n 

i.4 

-98.4 

1 

c* 

GE 

0.0020 

0.0 

C .0 193  1100.0 

0.0 

60.4 

c* 

GE 

0.0020 

0.0 

00027  1000.0 

0.0 

,.  .2 

159.2 

i 

c* 

GE 

0.0020 

0.0 

0.0  1C00.0 

0.0 
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1 

c* 

GE 

100. 

0.0 

0.0027 

1000.0 

0.0 

189.2 

189.2 

1 

c* 

GE 

100. 

0.0 

0.0 

1000.0 

0.0 

291.4 

281.4 

0 

AIR 

100. 

0.0 

0.0 

900.0 

0.0 

119.2 

119.2 

0 

AIR 

100. 

0.0 

0.0 

260.0 

0.0 

98.4 

88.4 

0 

100. 

0.0 

0.0 

240.0 

0.0 

49.3 

49.3 

0 

AIR 

100. 

0.0 

0.0 

200.0 

0.0 

39.1 

38.1 

0 

AIR 

100. 

0.0 

0.0 

180.0 

0.0 

29.4 

29.4 

0 

100. 

0.0 

0.0 

140.0 

0.0 

17.1 

17.  1 

0 

100. 

0.0 

0.0 

100.0 

0 

9.8 

9.8 

0 

100. 

0 

0.0 

0.0 

.  000 1 

O.u 

0.0 

0.0 

0 

■9 

2 

4000.0 

0. 1749 

1 

1800. 

10 

Ttitn  t 


IBLOPT,  IOPTN,  TCRIT,  BPCRIT,  IMSG,  TABCN,  MITER 


New  line  of  data  must  be  included. 


94 


THE  JOHNS  HOPKINS  UNIVERSITY 

APPLIED  PHYSICS  LABORATORY 

LAUREL,  MARYLAND 


APPENDIX  E 

PUTZ  AND  BARTLETT  CORRELATION  FOR  GRAPHITE 

ABLATION 


95 


THE  JOHNS  HOPKINS  UNIVERSITY 

APPLIED  PHYSICS  LABORATORY 

LAUREL,  MARYLAND 


APPENDIX  E 


Putz  and 

Qw 

m 

Cm 


Ch 

nO 

<t>n 

K 


Ft 


F 2 


where 


<7w 

Pc  Uc  C//a 

Hr 

v 

>k 

m 
A m 
6' 
6/ 

M„ 

K 

m. 


Bartlett  Correlation  for  Graphite  Ablation 


^(ptueCHo  )(Hr  -  hw)  , 

(E.l) 

(peueCm) j3'  , 

(E.2) 

<t>m 

(E.3) 

-  1  ' 

2Am/3', 

(E.4) 

(1.012  +  0.018/3;  +  0.0814/3;  2)(1.0  -  F,)> 

(E.5) 

(F1  -  0.95  \ 0  71 
(0.238  +  0.038/3  ' )  (  *  ■  , 

(E.6) 

\  0.60  / 

0.95,  Mw/Me  <  0.95 

Mw/Me,  0.95  <  MJM,  <1.55 

(E.7) 

1.55,  Mw/Me  >  1.55, 

1.0  -  0.6563/3o'  +  0.01794/3; 2  +  0.96365/3; 3 

-  0.01 1250;  4,(E.8) 

=  surface  convective  heat  flux, 

=  nonablating  heat  transfer  coefficient  evaluated  at  the  wall 
surface  temperature, 

=  recover  enthalpy, 

=  heat  transfer  correlation  parameter  Ct,/Cl/u, 

-  static  enthalpy  evaluated  at  wall  (surface), 

=  mass  transfer  coefficient, 

=  mass  transfer  correlation  parameter, 

=  mass  loss  parameter, 

=  m./p'U,C 

-  molecular  weight  of  gave*  at  wall  (surface), 

=  molecular  weight  of  gases  at  edge  of  boundary  layer, 

-  mass  loss  rate  per  unit  area  at  wall  (surface). 
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